Excel VBA：將工作表復制到現有工作簿（變量）

Question

我想將活動工作簿存儲為變量，以便即使名稱更改也可以調用同一工作簿。 然后，我想打開另一個工作簿並將第一張工作表復制到現有工作簿中。

這是相關的部分：

Dim WorkbookA As Workbook
     Set WorkbookA = ActiveWorkbook.Name


folder = Application.GetOpenFilename("Excel (*.xlsx), *.xlsx", 1, "Select file")
Workbooks.Open Filename:=folder

    NewFile = Dir(folder)
    Workbooks(NewFile).Activate

ActiveSheet.Select
ActiveSheet.Copy Before:=Workbooks(WorkbookA).Sheets(1)

我不斷收到的錯誤消息與將WorkbookA設置為活動工作簿有關。

任何幫助是極大的贊賞！

Answer 1

.Name是工作簿對象的字符串（屬性）。 因此，您肯定會在那一行上得到一個錯誤。

只需： Set workbookA = ActiveWorkbook 。 我也會：

Set workbookA = ActiveWorkbook

Dim otherWorkbook as Workbook

folder = Application.GetOpenFilename("Excel (*.xlsx), *.xlsx", 1, "Select file")
Set otherWorkbook = Workbooks.Open(Filename:=folder)
workbookA.ActiveSheet.Copy Before:=otherWorkbook.Sheets(1)