Excel 2003 копия листа

Question

У меня есть два XLS файлов: file1.xls и file2.xls

Я хочу, чтобы скопировать содержимое sheet1 из файла «file1.xls» в sheet2 из файла «file2.xls» ,

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