vb链接Excel程序代码

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表格了