怎样控制打开Excel时工作表的序号？

Question

我的一个 Excel文件 是：Test.xls  里面 有两个 工作表 分别是： xlsheet1和 xlsheet2。
我想实现，当我点击 Command1（按钮1） 时 打开Test.xls时，显示工作表xlsheet1，点击 Command2（按钮2） 时，打开Test.xls时显示工作表xlsheet2。

Answer 1

我是这样 写的：
    Dim xlApp As New Excel.Application 
    Dim xlBook As Excel.Workbook 
    Dim xlSheet As Excel.WorksheetPrivate Sub Command1_Click()
     Set xlBook = xlApp.Workbooks.Open(d:\Test.xls) 
     Set xlSheet = xlBook.Worksheets("xlsheet1")
End SubPrivate Sub Command2_Click()
     Set xlBook = xlApp.Workbooks.Open(d:\Test.xls) 
     Set xlSheet = xlBook.Worksheets("xlsheet2")
End Sub

Answer 2

哦，是这样的：
Dim xlApp As New Excel.Application 
    Dim xlBook As Excel.Workbook 
    Dim xlSheet As Excel.WorksheetPrivate Sub Command1_Click()
     Set xlBook = xlApp.Workbooks.Open(d:\Test.xls) 
     Set xlSheet = xlBook.Worksheets("xlsheet1")
     xlApp.Visible = True 
End SubPrivate Sub Command2_Click()
     Set xlBook = xlApp.Workbooks.Open(d:\Test.xls) 
     Set xlSheet = xlBook.Worksheets("xlsheet2")
     xlApp.Visible = True 
End Sub

Answer 3

这只是个，测试， 假如 这个Excel文件 里面有100个 工作表 ，我要找到我想看的那张工作表 ，就很方便了。

Answer 4

Private Sub Command1_Click()Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open("d:\Test.xls")
xlApp.Visible = True
xlBook.Sheets("xlsheet1").Select
End Sub

Answer 5

command1
set xlSheet=xlBook.Sheets("xlsheet1")
xlSheet.activecommand2
set xlSheet=xlBook.Sheets("xlsheet2")
xlSheet.active