将工作表名称设置为等于变量

Question

我希望能够打开第二个数据源（工作簿）和 select 第二个工作簿中的工作表，它等于我的第一个工作簿中单元格中的名称。

到目前为止，我有：

    Dim src As Workbook
    Dim src2 As Workbook
    Dim shtno As String
    Dim ws As Worksheet

    Set src = ActiveWorkbook
    shtno = Sheets("CONTROL").Range("G3").Value
    Set ws = Sheets(shtno)

    Workbooks.Open Filename:= 'file link
    Set src2 = ActiveWorkbook

    ws.Select

'ws.Select' 应该 select 我的工作表需要。 我哪里错了？

谢谢。

Answer 1

大本是正确的。

您需要将Set ws语句移到Workbooks.Open语句下方，然后：

Set ws = src2.Sheets(shtno)
ws.Select

笔记：

• 一旦您Open新工作簿，它就会成为Active工作簿
• 您只能Select Active工作簿上的工作表