如何在Excel工作簿之间复制和粘贴工作表？

如果使用 VBA 打开两个 Excel 应用程序，如何将工作表从一个 Excel 应用程序 (1) 传输到另一个 (2)？

问题是，程序员使用 JavaScript，当您单击将 Web 数据传输到 xl 工作簿的按钮时，它会打开一个新的 Excel 应用程序。

我知道部分代码是：

Workbooks.Add
ActiveSheet.Paste    
' Once I returned to the original , i.e. excel app(1).

未经测试，但类似：

Dim sourceSheet As Worksheet
Dim destSheet As Worksheet

'' copy from the source
Workbooks.Open Filename:="c:\source.xls"
Set sourceSheet = Worksheets("source")
sourceSheet.Activate
sourceSheet.Cells.Select
Selection.Copy

'' paste to the destination
Workbooks.Open Filename:="c:\destination.xls"
Set destSheet = Worksheets("dest")
destSheet.Activate
destSheet.Cells.Select
destSheet.Paste

'' save & close
ActiveWorkbook.Save
ActiveWorkbook.Close

请注意，这假设目标工作表已存在。如果没有的话，创建一个也很容易。