VBA自动化：高效文件数据汇总工具

Sub 按钮1_Click()
Dim Fso, Fld, Fl
Dim arr, brr(1 To 2, 1 To 13), i%, j%
Set Fso = CreateObject("Scripting.FileSystemObject")
Set Fld = Fso.getfolder(ThisWorkbook.Path & "\机关事务局套表（1-4）数据\")

If Fld.Files.Count > 0 Then
   Application.ScreenUpdating = False
   For Each Fl In Fld.Files
       Workbooks.Open (Fl)
          With ThisWorkbook.Sheets("记录")
             s = s + 1
             .Cells(s, 1) = s
             For Each Rng In Range("a1:z65536")
                 If Rng = "本级" Then
                      a = Rng.Row
                      b = Rng.Column
        arr = ActiveWorkbook.Worksheets(1).[B6:N7] '各表数据域赋给数组arr
                 For i = a To a+1 '逐行
                  For j = b To b+13 '逐列
                    If IsNumeric(arr(i, j)) Then brr(i, j) = brr(i, j) + arr(i, j) '如果单元格是数字则累加
                  Next
                 Next
             .Cells(s, 2) = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4)
             .Cells(s, 3) = "处理成功"
                 Else
             .Cells(s, 4) = "处理失败"
                 End If
             Next
       End With