Excel VBA复制工作表

Question

i would like to open two Excel Files and from each of the two Excel Files copying one distinct sheet into a new workbook so that this new workbook contains the two sheets of the ones first loaded. I tried to use

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

but I always get a Runtime error.

Any ideas what could be the problem?

Answer 1

You can copy one sheet from the 1st workbook. this will create a new workbook, then copy the 2nd sheet to that new workbook.

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