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