如何将一个文件夹中多个 excel 工作簿中除工作表 1 和 2 之外的所有工作表复制到另一个工作簿中

Question

如果这里有人能帮助我解决这个我找不到解决方案的问题，我真的很感激（抱歉我的英语不好）。

所以我在一个文件夹中有多个 excel。 其中每excel都有相同格式的第1张表供每张表参考，第2张表用于合并数据，第3张表和rest用于要合并的数据。 文件夹中的每个 excel 都有不同数量的工作表。

我想做的是我想将范围 A27:AJ500 中的数据从第 3 张开始复制到之后的每张工作表中，复制到工作表 1 中的另一个新工作簿中，并将它从单元格 A27 开始一遍又一遍地粘贴到底部并循环每个 excel在文件夹中。

我还没有足够的能力编写自己的脚本，但我设法理解了一些并将其组合到这个脚本中。

Sub Download_Data()

Path = "C:\Users\ASUS\Desktop\Done\"
Filename = Dir(Path & "*.xlsm")

'to open every excel in my folder
Do While Filename <> ""
Workbooks.Open Filename:=Path & Filename, ReadOnly:=True '--> i only managed to do it right till here

'supposed to copy range in every sheet of excel in my folder into different workbook
For Each ws In thiswoorkbook.Worksheets '--> i try write this code but i am confused to do what i want from here and i know this code is nowhere near true
    With ws
        If .Name <> "GABUNGAN" Then
        range("A27:AJ500").Select
        Selection.copy
        Workbooks("Tes.xlsm").range("A27").PasteSpecial Paste:=xlPasteValues
        End If
    End With
Next ws

Workbooks(Filename).Close
Filename = Dir()
Loop

Application.Goto ActiveWorkbook.Sheets("sheet1").range("A1")

End Sub

我一直在寻找代码，不仅我无法将其自定义为这段代码，而且我也无法理解代码中的错误，因此我写了这个问题。 任何帮助将不胜感激，在此先感谢您的关注，祝您平安无事。

Answer 1

试试这个：（已测试）

Dim sourcewb As Workbook
Dim destwb As Workbook
Dim y As Long
Dim ws As Worksheet
Dim strPath As String, strFilename As String

strPath = "C:\Users\ASUS\Desktop\Done\"
strFilename = Dir(strPath & "*.xlsm")

y = 27
Set destwb = ThisWorkbook
Do While strFilename <> ""
    Set sourcewb = Workbooks.Open(Filename:=strPath & strFilename, ReadOnly:=True)
    For Each ws In sourcewb.Worksheets
        With ws
            If .Name <> "name of reference sheet" And .Name <> "name of consolidation sheet" Then
                .Range("A27:AJ500").Copy
                destwb.Worksheets("sheet1").Range("A" & y).PasteSpecial Paste:=xlPasteValues
                y = y + (500 - 27) + 1
            End If
        End With
    Next ws
    sourcewb.Close False
    strFilename = Dir()
Loop