Excel VBA復制工作表

Question

我想打開兩個Excel文件，然后從兩個Excel文件的每一個中將一個不同的工作表復制到一個新的工作簿中，以便此新工作簿包含第一次加載的兩個工作表。 我嘗試使用

workbook("old.xls").worksheets(2).copy after:=workbook("new.xls").worksheets(1)

但是我總是會遇到運行時錯誤。

任何想法可能是什么問題？

Answer 1

您可以從第一個工作簿中復制一張紙。 這將創建一個新工作簿，然后將第二張工作表復制到該新工作簿。

Sub CopySheetsToNewWB()

    Dim wb1 As Workbook, wb2 As Workbook
    Dim BK As Workbook


    Set wb1 = Workbooks("Old.xls")
    Set wb2 = Workbooks("Old2.xls")

    With wb1
        .Sheets("Sheet2").Copy
    End With

    Set BK = ActiveWorkbook

    With wb2
        .Sheets("Sheet1").Copy After:=BK.Sheets(1)
    End With


    BK.SaveAs Filename:="C:\Users\dmorrison\Downloads\NewWB.xls"
    BK.Close


End Sub