Excel 2003 复制工作表

【问题标题】：Excel 2003 copy worksheetExcel 2003 复制工作表
【发布时间】：2015-08-01 07:54:07
【问题描述】：

我有两个 xls 文件：file1.xls 和 file2.xls

我想将文件“file1.xls”的 sheet1 的内容复制到文件“file2.xls”的 sheet2 中。

【问题讨论】：

打开宏记录器并从file1的sheet1复制到file2的sheet2。关闭宏记录器。生成的代码并不完美，但它会做你想做的。

【解决方案1】：

考虑类似：

Sub dural()
    Dim alpha As Workbook, beta As Workbook
    Workbooks.Open Filename:="C:\TestFolder\alpha.xlsm"
    Set alpha = ActiveWorkbook
    Workbooks.Open Filename:="C:\TestFolder\beta.xlsm"
    Set beta = ActiveWorkbook
    alpha.Sheets(1).Copy Before:=beta.Sheets(1)
End Sub

【讨论】：