多工作簿相同区域求和汇总

mengcheng001

要求：将子表表格黄色底纹部分求和汇总到汇总表表格相同位置！
参考过论坛里同类问题，但把代码复制并加以修改，总是报错，请大神帮忙！
感谢！

zhaogang1960

请参考：
Sub ADO法()
    Dim Fso As Object, File As Object, cnn As Object, SQL$, n&, arr, brr(30, 1), i&
    Set Fso = CreateObject("Scripting.FileSystemObject")
    Set cnn = CreateObject("adodb.connection")
    For Each File In Fso.GetFolder(ThisWorkbook.Path).Files
        If File.Name Like "*.xls" And File.Name <> ThisWorkbook.Name Then
            n = n + 1
            If n = 1 Then cnn.Open "provider=microsoft.ace.oledb.12.0;extended properties=excel 12.0;data source=" & File
            SQL = "select * from [Excel 12.0;hdr=no;Database=" & File & ";].[进项结构明细表$D7:E37]"
            arr = cnn.Execute(SQL).GetRows
            For i = 0 To 30
                brr(i, 0) = brr(i, 0) + arr(0, i)
                brr(i, 1) = brr(i, 1) + arr(1, i)
            Next
        End If
    Next
    Range("D7:E37") = brr
    cnn.Close
    Set cnn = Nothing
    Set Fso = Nothing
End Sub

zhaogang1960

请测试附件
测试.rar (174.32 KB, 下载次数: 341)

2016-5-29 20:08 上传

点击文件名下载附件

mengcheng001

zhaogang1960 发表于 2016-5-29 20:08
请测试附件

感谢老师的帮忙！但我原来附件里共有6张工作表，你发上来的只有一个表； 其它表我可以在你的代码基础上修改一下，应该可以实现汇总，但“主表”有合并单元格，我试了好久，没办法有SQL语句完成汇总取数，麻烦了！

Albert128

zhaogang1960 发表于 2016-5-29 20:08
请测试附件

今天正好碰到此问题，向赵版学习，
我现在的问题是：多工作簿，每个工作簿里有多个工作表，能否把相同工作表名的相同区域，汇总到汇总工作簿的对应工作表名的相同区域内。

LMY123

SQL单夹多薄指定表指定区域汇总求和