请教：SQL查询超过限制怎么改数组字典法

龙蒙山

请大师帮忙：
在一个工作薄中工作表不断增加动态汇总是用SQL法，开始使用一切正常，
现在工作表到了50个时，提示“数据过于复杂”无法汇总了，查了一下据说是到了SQL法49张表的极限。
下面的代码怎么改成数组和字典代码？谢谢！

Sub 数据汇总()
   Dim d As Object, sql$, shn As Worksheet   
    If [L1] = "" Then    '---------------------------按时间段汇总
       MsgBox "请在[L1]选择要汇总的时间段"
      Exit Sub
   End If   
    Set cnn = CreateObject("ADODB.Connection")
    cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='Excel 8.0;imex=1;';data Source=" & ThisWorkbook.FullName
    For Each sh In Worksheets
        If sh.Name <> "汇总" And sh.Name <> "材料名称" And sh.Name <> "清单模板" And sh.Name Like Range("L1") & "*" Then sql = sql & "select * from [" & sh.Name & "$A6:H26] union all "
    Next


    sql = "select 产品材料名称,规格型号,单位,sum(发货数量),sum(实收数量),"""","""",sum(实收金额元)  from (" _
        & Left(sql, Len(sql) - 11) & ") WHERE NOT 产品材料名称 is NULL group by 产品材料名称,规格型号,单位"
    Range("B3").CopyFromRecordset cnn.Execute(sql)
    cnn.Close: Set cnn = Nothing
End Sub

zhaogang1960

请参考：

1. Sub 数据汇总()
   
2.     Dim d As Object, sh As Worksheet
   
3.     Dim arr, brr(1 To 65536, 1 To 8), i&, j&, m&, r, s$
   
4.     Set d = CreateObject("scripting.dictionary")
   
5.     For Each sh In Worksheets
   
6.         If sh.Name <> "汇总" And sh.Name <> "材料名称" And sh.Name <> "清单模板" And sh.Name Like Range("L1") & "*" Then
   
7.             arr = sh.[A6:H26]
   
8.             For i = 1 To UBound(arr)
   
9.                 If Len(arr(i, 1)) Then
   
10.                     s = arr(i, 1) & "|" & arr(i, 2) & "|" & arr(i, 3)
    
11.                     r = d(s)
    
12.                     If r = "" Then
    
13.                         m = m + 1
    
14.                         d(s) = m
    
15.                         For j = 1 To 8
    
16.                             If j <> 6 And j <> 7 Then brr(m, j) = arr(i, j)
    
17.                         Next
    
18.                     Else
    
19.                         brr(r, 4) = brr(r, 4) + arr(i, 4)
    
20.                         brr(r, 5) = brr(r, 5) + arr(i, 5)
    
21.                         brr(r, 8) = brr(r, 8) + arr(i, 8)
    
22.                     End If
    
23.                 End If
    
24.             Next
    
25.         End If
    
26.     Next
    
27.     Range("B3").Resize(m, 8) = brr
    
28. End Sub
    

复制代码

neemx

数组+字典，突破了SQL的50个表的限制

OKJSJSF

进入学习。

OKJSJSF

neemx 发表于 2015-9-9 10:23
数组+字典，突破了SQL的50个表的限制

创建合并透视表时，能否在突破50个表上限的同时继续保持链接刷新的功能？

洋务德雷

根本不是谁突破谁的问题，是你表格设计的问题，为什么有50多个表需要汇总呢？为什么会出现汇总表呢？汇总表不就是基础数据表吗？设计操作的步骤是不是反了？

neemx

洋务德雷 发表于 2022-6-3 18:08
根本不是谁突破谁的问题，是你表格设计的问题，为什么有50多个表需要汇总呢？为什么会出现汇总表呢？汇总表 ...

我后来用PANDAS搞定了

洋务德雷

neemx 发表于 2022-8-2 11:16
我后来用PANDAS搞定了

Python虽然可以解决问题，但是制表思想如果是错误的。那么就会不断地出现问题。