Question

我正在尝试复制＆＃34; Sheet1＆＃34;从工作簿中打开，标记为＆＃34; source.xlsm＆＃34;，并粘贴在我现有工作簿的最后一张表格中，该表格在运行时未打开，标记为＆＃34; target.xlsx＆＃34;

我有以下代码，似乎整个＆＃34; C：\＆＃34;目录什么都不做。是否可以放入目录？如果没有打开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提供的有用信息回答了我自己的问题。

l = Listing.create... 
l.vendors[:hd].merge!({ foo:'bar' })

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

2 个答案: