方法/步骤
1
打开vb软件,创建工程,创建窗体
2
在工具菜单中选择菜单编辑器,然后编辑菜单,编辑好菜单后,选择菜单按钮
3
选择菜单后进入代码编辑窗口,
Private Sub swflb_Click()
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open("d:\10.xls")
xlApp.Visible = True
Set xlSheet = xlBook.Worksheets("水文分类表")
End Sub
编辑如下代码后,就可以打开Excel表格了