vb链接Word的实例

1、打开vb，添加工程，添加窗体

2、然后在工具中选择菜单编辑器编辑菜单

3、编辑好菜单后，然后选择菜单按钮，进入代码编辑区编辑如下代码：

4、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

就可以在vb中打开Excel了