如何打开指定EXCL表的指定工作簿

我心飞扬　发表于：2013-06-11 12:19:38 　

Private Sub Command83_Click()
Dim wks1 As Object
Set ex1 = CreateObject("excel.application")
Set exwbook1 = ex1.Workbooks.Open("D:\abc\123.xls")

ex1.Visible = True
End Sub

我用以上代码，可以打开D:\abc\123.xls，但在123.xls表中，有表1、表2、表3共3个工作簿，怎么才能打开123.xls表中的表2，请高手指点，谢谢！

Top

殷小宝发表于：2013-06-11 16:18:18

ex1.exwbook1.sheets(2).select

Top

hongyin 发表于：2013-06-11 16:18:46

Private Sub Command83_Click()
    Dim wks1 As Object
    Dim ex1
    Dim exwbook1
    Set ex1 = CreateObject("excel.application")
    Set exwbook1 = ex1.Workbooks.Open("D:\abc\123.xls")

    ex1.Visible = True
    exwbook1.sheets(2).Activate
End Sub

Top

我心飞扬发表于：2013-06-11 18:43:54

您的最直接，我选您的答案为最佳，谢谢！

Top

总记录：3篇页次：1/1 9 1 :

Access交流中心

如何打开指定EXCL表的指定工作簿