设置wbkDest.worksheets（“xxxxxxx”）以反映范围

Question

我有一个生成页面/页面名称的工作簿。工作表名称始终反映作业编号。作业编号也始终显示在单元格A1中。

我想从另一本书中复制数据，并将其粘贴回此工作表，但我需要定位要粘贴数据的页面。

我的问题是我不能说wbkDest.Worksheets("sheet1")。我需要说像wbk.Dest.Worksheets(Range("a1").value)这样的东西。

再次：在工作簿中粘贴与工作簿中的单元格A1同名的工作表，从中触发宏。

sub import()
    Dim wbkSrc As Workbook, wbkDest As Workbook
    Dim myFile As String
    Dim Path As String
    Dim emptyRow As Long
    Dim wsOrig As Worksheet
    Set wsOrig = ThisWorkbook.Worksheets(1) 

    emptyRow = 1
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False

    Set wbkDest = Workbooks("lathe_project6-1-2017.xlsm")
    Path = "G:\FIXTURES\" & Range("A1").Value & "\lists\new folder\"
    myFile = Dir(Path & "*.xls??")
    Set wbkSrc = Workbooks.Open(Path & myFile)
    wbkSrc.Worksheets(1).Range("A1:I100").Copy

    wbkDest.Worksheets(wsOrig.Range("A1").Value).Cells(emptyRow, 1).PasteSpecial Paste:=xlPasteValues
    wbkSrc.Close

End Sub

Answer 1

这不起作用：？

Dim wskVariableSheet as worksheet
Set wskVariableSheet = wbkDest.Sheets(Range("a1").Value)

然后只需要引用要粘贴的wskVariableSheet.range。