需要excel vba脚本来合并工作表并创建新工作簿

Question

这是我从其他现有vba开始使用的一些代码

Set XL = CreateObject("Excel.Application")
XL.Visible=True 
XL.Workbooks.Open "path\book1.xls"
XL.Worksheets.Add(After:=Sheet1)

在这里，我需要将两个不同的工作表添加到book1.xls并另存为
book12013DEC03.xls这两个表来自book2.xls和book3.xls（一个表
从每个）book1.xls已经有一张纸，而在此之后我需要新的纸。

XL.ActiveWorkbook.SaveAs "path\book12013DEC03.xls"
XL.ActiveWorkbook.Close
XL.Quit

Answer 1

这可能应该让您开始

Sub joinws()
    Dim wb1 As Workbook, wb2 As Workbook
    Set wb1 = Workbooks("book1.xls")
    'Dim ws As Worksheet
    Set wb2 = Workbooks("book2.xls")
    wb2.Sheets(1).Copy Before:=wb1.Sheets(1)
    Set wb2 = Workbooks("book3.xls")
    wb2.Sheets(1).Copy Before:=wb1.Sheets(2)
    Application.DisplayAlerts = False
    wb1.SaveAs Filename:="book12013DEC03.xls"
    Application.DisplayAlerts = True
End Sub

（根据OP的评论为次要版本）（为避免隐私警告弹出，根据OP的评论为另一个次要版本）