将多个 Excel 文件中相同结构的工作表追加到一个中

我想将多个 Excel 文件合并为一个。我想要合并的 Excel 文件具有相同的工作表。所以在这一点上，我想合并不同 Excel 文件中的相同工作表。

我有这段代码要组合，但是此代码仅组合了 Excel 文件中的最新活动工作表：

Sub simpleXlsMerger()
    Dim bookList As Workbook
    Dim mergeObj As Object, dirObj As Object, filesObj As Object, everyObj As Object
    Application.ScreenUpdating = False
    Set mergeObj = CreateObject("Scripting.FileSystemObject")
    Set dirObj = mergeObj.Getfolder("C:\Users\5545\Desktop\MI")
    Set filesObj = dirObj.Files
    For Each everyObj In filesObj
        Set bookList = Workbooks.Open(everyObj)
        Range("A2:IV" & Range("A28").End(xlUp).Row).Copy
        ThisWorkbook.Worksheets(1).Activate
        Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial
        Application.CutCopyMode = False
        bookList.Close
    Next
End Sub

我如何指定sheet("Day 1")我希望在该代码中使用哪个？我想要合并的工作表的名称是“Day 1”

Write:

With bookList.Worksheets("Day 1")
    .Range("A2:IV" & .Range("A28").End(xlUp).Row).Copy
End With

代替：

Range("A2:IV" & Range("A28").End(xlUp).Row).Copy

前面的两个点Range很重要，他们确保您两次引用正确的工作表：

如果没有它们，代码指的是ActiveSheet.