如何让VB打开的EXCEL文件，显示指定工作表

燕之峰发布于 2014-04-11 10:52， 4798 次点击

各位网友好，有时根据需要，用VB打开EXCEL文件，想打开时就显示某个工作表，但根据以往的代码打开后，往往不是要显示的工作表。这样达不到理想的效果，请问如何设置，才能使使打开的EXCEL文件显示的工作表就是想要的。请指导，谢谢

3 回复

owenlu19812014-04-11 11:50

Dim xlapp As Excel.Application 'Excel对象
Dim xlbook As Excel.Workbook '工作簿
Dim xlsheet As Excel.Worksheet '工作表

xlApp.Visible = True
Set xlapp = CreateObject("Excel.Application") '创建EXCEL对象
Set xlbook = xlapp.Workbooks.Open(App.Path & "/test.xls") '打开已经存在的test.xls工件簿文件
Set xlsheet = xlbook.Worksheets(1) '设置工作薄第"1"个工作表为活动工作表
xlsheet.Select

alike1232014-04-11 16:05

xlApp.Visible = True
CommonDialog1.ShowOpen
strFileName = CommonDialog1.FileName
CommonDialog1.Filter = "Xls文件(*.Xls)|*.Xls|所有文件(*.*)|*.*"
Set xlapp = CreateObject("Excel.Application") '创建EXCEL对象
Set xlbook = xlapp.Workbooks.Open(strFileName)
Set xlsheet = xlbook.Worksheets(1) '设置工作薄第"1"个工作表为活动工作表
xlsheet.Select
修正一下2楼的

燕之峰2014-04-12 14:27

xlsheet.Activate
这行代码可以吗