设置工作表名称等于变量

Question

我希望能够打开第二个数据源（工作簿），并选择第二个工作簿中的工作表，该工作表与我的第一个工作簿中的单元格中的名称相同。

到目前为止，我有：

    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'应该在哪里选择我的工作表。我要去哪里错了？

谢谢。

Answer 1

BigBen是正确的。

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

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

注：

• 一旦您Open新工作簿，它将成为Active工作簿
• 您只能在Select工作簿上Active工作表