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

Question

我想将几个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")我希望在那个代码中？我要合并的工作表名称是“第 1 天”

Answer 1

写:

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 .