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

123shusheng

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，请高手指点，谢谢！

竹笛

sheets方法

123shusheng

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     '2代表要打开D:\abc\123.xls中的第二个工作表
End Sub


最终结果是这样的。

tmtony

tmtony

如
exwbook1 .Worksheets(1).activate

tmtony

D:\abc\123.xls 是指它里面的工作表
我只是示例啊,你要根据你的具体来修改啊

123shusheng

tmtony 发表于 2013-6-10 19:37
xlBook.Worksheets(1)　修改　１为　２　３　　４　这样

您的这句代码加在什么地方，我尝试
Private Sub Command83_Click()
Dim wks1 As Object
Set ex1 = CreateObject("excel.application")
Set exwbook1 = ex1.Workbooks.Open("D:\abc\123.xls")
xlBook.Worksheets(1)
ex1.Visible = True
End Sub
不行，您说的“xlBook.Worksheets(1)　修改　１为　２　３　　４”
是不是第一个工作簿，第二个工作簿的意思？

tmtony

xlBook.Worksheets(1)　修改　１为　２　３　　４　这样