1、打开vb，添加工程，添加窗体
2、然后在工具中选择菜单编辑器编辑菜单
3、编辑好菜单后，然后选择菜单按钮，进入代码编辑区编辑如下代码：
4、Private Sub swflb_Click()Set xlApp = CreateObject("Excel.App造婷用痃lication")Set xlBook = xlApp.Workbooks.Open("d:\10.xls")xlApp.Visible = TrueSet xlSheet = xlBook.Worksheets("水文分类表")End Sub就可以在vb中打开Excel了
