[已解决]代码怎么用在第二个及之后的工作表？

嗜糖的咖啡

如附件所示，汇总工作簿的按钮一可以汇总相加数据文件夹里面的每个工作簿的第一张工作表里的数据，按钮二的宏代码应该怎么改才能汇总数据文件夹里的第二个工作簿，以此类推。。。

偶是V菜，恳请高手帮忙！

新建文件夹 22.zip (57.58 KB, 下载次数: 7)

2012-5-24 11:40 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

jb_008

2012-5-24 12:46

Sub hz_3()
    Dim Fso, Fld, Fl
    Dim arr, brr(1 To 121, 1 To 8), i%, j%
    Set Fso = CreateObject("Scripting.FileSystemObject")
    Set Fld = Fso.getfolder(ThisWorkbook.Path & "\数据\")
    If Fld.Files.Count > 0 Then
        Application.ScreenUpdating = False
        For Each Fl In Fld.Files
            Workbooks.Open (Fl)
            arr = ActiveWorkbook.Worksheets(2).[B2:I122] '各表数据域赋给数组arr
            For i = 1 To 121 '逐行
                For j = 1 To 8 '逐列
                    If IsNumeric(arr(i, j)) Then brr(i, j) = brr(i, j) + arr(i, j) '如果单元格是数字则累加
                Next
            Next
            ActiveWorkbook.Close
        Next
        Application.ScreenUpdating = True
        ThisWorkbook.Worksheets(2).[B2:I122] = brr '写数据
        MsgBox "数据汇总完成"
    Else
        MsgBox "没有找到任何工作簿文件"
    End If

End Sub

将红色部分改一下就可以了

跳转到最佳答案楼层

jb_008

Sub hz_3()
    Dim Fso, Fld, Fl
    Dim arr, brr(1 To 121, 1 To 8), i%, j%
    Set Fso = CreateObject("Scripting.FileSystemObject")
    Set Fld = Fso.getfolder(ThisWorkbook.Path & "\数据\")
    If Fld.Files.Count > 0 Then
        Application.ScreenUpdating = False
        For Each Fl In Fld.Files
            Workbooks.Open (Fl)
            arr = ActiveWorkbook.Worksheets(2).[B2:I122] '各表数据域赋给数组arr
            For i = 1 To 121 '逐行
                For j = 1 To 8 '逐列
                    If IsNumeric(arr(i, j)) Then brr(i, j) = brr(i, j) + arr(i, j) '如果单元格是数字则累加
                Next
            Next
            ActiveWorkbook.Close
        Next
        Application.ScreenUpdating = True
        ThisWorkbook.Worksheets(2).[B2:I122] = brr '写数据
        MsgBox "数据汇总完成"
    Else
        MsgBox "没有找到任何工作簿文件"
    End If

End Sub

将红色部分改一下就可以了

嗜糖的咖啡

谢谢！原来是这样啊~~再请问 能不能修改下，一段代码同时汇总两个表呢？