多工作簿汇总，汇总数据区域如何累加，求大神指点

microyip

先把汇总工作簿对应数据读入数组（汇总数组），再把要汇总的各工作簿对应数据读入数组（数据数组），然后循环一下数组，把数据数组里的数加到汇总数组里，最后把汇总数组写到汇总工作簿里就是了

LMY123

tudarong 发表于 2018-7-27 11:57
ADO没有学过，字典还可以看懂，可以帮忙写一段吗？

1. Sub ADO多薄首表相同单元格汇总()
   
2.     Dim Fso As Object, File As Object, cnn As Object, SQL$, n&, arr, brr(22, 14), i&
   
3.     Set Fso = CreateObject("Scripting.FileSystemObject")
   
4.     Set cnn = CreateObject("adodb.connection")
   
5.     crr = [C5:Q27]
   
6.     For Each File In Fso.GetFolder(ThisWorkbook.Path).Files
   
7.         If File.Name Like "*.xlsx" And File.Name <> ThisWorkbook.Name Then
   
8.             n = n + 1
   
9.             If n = 1 Then cnn.Open "provider=microsoft.ace.oledb.12.0;extended properties=excel 12.0;data source=" & File
   
10.             SQL = "select * from [Excel 12.0;hdr=no;Database=" & File & ";].[$C5:Q27]"
    
11.             arr = cnn.Execute(SQL).GetRows
    
12.             For r = 0 To UBound(arr, 2)
    
13.               For c = 0 To UBound(arr)
    
14.                 If r <> 16 Then
    
15.                   brr(r, c) = brr(r, c) + arr(c, r)
    
16.                 Else
    
17.                   brr(r, c) = crr(r + 1, c + 1)
    
18.                 End If
    
19.               Next c
    
20.             Next r
    
21.         End If
    
22.     Next
    
23.     Range("C5:Q27") = brr
    
24.     cnn.Close
    
25.     Set cnn = Nothing
    
26.     Set Fso = Nothing
    
27. End Sub

复制代码

tudarong

jiminyanyan 发表于 2018-7-27 22:31
我试了，代码可以运行的。。。

If m <> "" And n <> "" And m <> 21 Then
我把这句代码改成
If m <>0 And n <> 0 And m <> 21 Then
就可以运行了。
但是运行得到的结果是不对的。
这段代码中arr(i,2)有重名，写入字典后数据就缺失了，导致了前面的没有数据。
不过版主的思路，我已明白，还是感谢大家的指点。
    For i = 5 To UBound(arr)
        If Len(arr(i, 2)) Then
            d(Trim(arr(i, 2))) = i
        End If
    Next i

sunny_8848

做个记号留存，多谢分享

jjmysjg

留个记号，谢谢