将从打开的工作簿复制的工作表粘贴到现有的非打开工作簿中

Question

我正在尝试从我打开的工作簿中复制“Sheet1”，标记为“source.xlsm”，然后粘贴到我现有工作簿的最后一张表之后，该工作簿在运行时未打开，标记为“target.xlsx” ”。

我有下面的代码，似乎整个“C:\”目录什么都不做。甚至可以放入目录吗？如果不打开 Target.xlsx，我找不到执行此操作的方法。

ActiveSheet.Select
ActiveSheet.Copy After:=Workbooks("C:\Target.xlsx").Sheets("FirstSheet")

Answer 1

您已经想通了，但建议进行修改：

Dim wb As WorkBook
''Open 2nd Workbook
Set wb = Workbooks.Open(Filename:="C:\Archive.xlsx")

''Copy To Different Workbook
Workbooks("Source.xlsx").Sheets("Source").Copy _
         After:=wb.Sheets("Archive")

''Close 2nd Workbook
wb.Save
wb.Close

Answer 2

使用 Tim 提供的有用信息回答了我自己的问题。

''Open 2nd Workbook
Workbooks.Open Filename:="C:\Archive.xlsx"

''Copy To Different Workbook
Workbooks("Source.xlsx").Sheets("Source").Activate
ActiveSheet.Copy After:=Workbooks("Archive.xlsx").Sheets("Archive")

''Close 2nd Workbook
Workbooks("Archive.xlsx").Sheets("Archive").Activate
ActiveWorkbook.Save
ActiveWorkbook.Close