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

我试图从已打开的工作簿中复制“Sheet1”，标记为“source.xlsm”，并粘贴在运行时未打开的最后一张工作簿的后面，标记为“target.xlsx”。

我有下面的代码，似乎整个“C：\”目录什么都不做。 甚至有可能把一个目录？ 如果没有打开Target.xlsx，我无法find这样做的方法。

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

Answer 1

你已经知道了，但build议编辑：

 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