Excel 2003复制工作表

Question

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

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

Answer 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