Excel 合并文件夹内(多个)工作簿 里面 指定的工作表

martingliang

如题，求助，需要将多个EXCEL工作簿的指定sheet页汇总到一个excel的sheet页内

3190496160

Sub hebing()
Application.ScreenUpdating = False
Set sh = ThisWorkbook.Worksheets(1)
sh.[a1].CurrentRegion.Clear
Dim arr()
Dim rng As Range
ReDim arr(1 To 10000, 1 To 50)
f = Dir(ThisWorkbook.Path & "\*.xls*")
Do While f <> ""
    If f <> ThisWorkbook.Name Then
        m = m + 1
        Set wb = Workbooks.Open(ThisWorkbook.Path & "\" & f, 0)
        With wb.Worksheets("柜体开料清单新")
            If m = 1 Then
                Set rng = .Rows(1)
                rng.Copy sh.[a1]
            End If
            ar = .[a1].CurrentRegion
            For i = 2 To UBound(ar)
                If Trim(ar(i, 1)) <> "" Then
                    n = n + 1
                    For j = 1 To UBound(ar, 2)
                        arr(n, j) = ar(i, j)
                    Next j
                End If
            Next i
        End With
        wb.Close False
    End If
f = Dir
Loop
sh.[a2].Resize(n, UBound(arr, 2)) = arr
Application.ScreenUpdating = True
MsgBox "ok!"
End Sub

3190496160

新建一个文件，保存在同一个路径下，然后在新建文件中运行代码即可