请教，关于汇总数据

xiawei1975 · 发表于 2016-2-6 20:29

我想将明细表中的工作表的合计数，汇总至汇总表中，请大侠指导，谢谢

汇总数据.zip (17.83 KB, 下载次数: 33)

zhaogang1960 · 发表于 2016-2-6 21:29

ADO法速度较快，请参考：
Sub ADO法()
Dim cnn As Object, rs As Object, i&, SQL$, s$
Application.ScreenUpdating = False
Set cnn = CreateObject("ADODB.Connection")
cnn.Open "Provider = Microsoft.ace.Oledb.12.0;Extended Properties =Excel 12.0;Data Source =" & ThisWorkbook.Path & "\明细表.xlsx"
Set rs = cnn.OpenSchema(20)
ActiveSheet.UsedRange.Offset(, 2).ClearContents
i = 2
Do Until rs.EOF
      If rs.Fields("TABLE_TYPE") = "TABLE" Then
         s = Replace(rs("TABLE_NAME").Value, "'", "")
         If Right(s, 1) = "$" Then
            i = i + 1
            SQL = "select 合计 from [" & s & "]"
            Cells(1, i) = Replace(s, "$", "")
            Cells(2, i).CopyFromRecordset cnn.Execute(SQL)
         End If
      End If
      rs.MoveNext
Loop
rs.Close
cnn.Close
Set rs = Nothing
Set cnn = Nothing
Application.ScreenUpdating = True
End Sub

zhaogang1960 · 发表于 2016-2-6 21:31

请测试附件

汇总数据.rar (32.44 KB, 下载次数: 68)

xiawei1975 · 发表于 2016-2-6 23:47

可以的，厉害啊

xiawei1975 · 发表于 2016-2-7 17:20

现在还有个问题，汇总表能按照明细表标签的顺序汇总排序吗。用了一下，如果明细表的标签按照5、4、3、2、1的顺序的话，汇总表依然按照1、2、3、4、5的顺序汇总

LMY123 · 发表于 2018-8-23 15:39

Set rs = cnn.OpenSchema(20)

		自动登录	找回密码
密码			免费注册

请教，关于汇总数据

评分