excel - Excel 2003 コピー ワークシート

Question

file1.xls と file2.xls の 2 つの xls ファイルがあります。

ファイル「file1.xls」のシート1の内容をファイル「file2.xls」のシート2にコピーしたい。

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