Excel 2003复印工作表

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

---

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

考虑以下情况：

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

---

打开宏录制器并从文件1的sheet1复制到文件2的sheet2。关闭宏录制器。生成的代码并不完美，但它可以做您想要的事情。