从打开的工作簿复制到现有的未打开工作簿的粘贴表

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