[求助]求多工作簿汇总(用ado+sql)的例子或网址

office2008

lenghonghai  大师:

.......

  sh = Dir(p & "\明细*.xls")
    Sheets("汇总").[a2:c2] = Split("工号 姓名 数量")
   Sheets("汇总").[a3:c65536] = ""
    While sh > ""
    Cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='Excel 8.0;';Data Source=" & ThisWorkbook.Path & "\" & sh
      Sql = "SELECT 工号, 姓名,sum(产量) as 数量 FROM [明细$] group by 工号, 姓名"
Sheets("汇总").[a65536].End(xlUp).Offset(1, 0).CopyFromRecordset Cnn.Execute(Sql)
     Cnn.Close
    sh = Dir    '这句确实很有用,但这句到底是什么意思,有什么含义吗?请详细解释一下,谢谢大师
Wend
    m = Range("a65536").End(xlUp).Row
......

yfz020

为何我添加一个工作簿汇总却不能汇总

咖啡可乐

需要添加一个汇总按钮吗

lenghonghai

不是把同名的进行汇总吗？你为什么要得到的结果中含有两个李四呢？

lenghonghai

Sub test()
    Dim Sql$, Cnn As Object, i%, sh As String, m%, rst As Object
        Set Cnn = CreateObject("ADODB.connection"): Set rst = CreateObject("adodb.recordset")
        p = ThisWorkbook.Path
    sh = Dir(p & "\明细*.xls")
    Sheets("汇总").[a2:c2] = Split("工号 姓名 数量")
   Sheets("汇总").[a3:c65536] = ""
    While sh > ""
    Cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='Excel 8.0;';Data Source=" & ThisWorkbook.Path & "\" & sh
      Sql = "SELECT 工号, 姓名,sum(产量) as 数量 FROM [明细$] group by 工号, 姓名"
Sheets("汇总").[a65536].End(xlUp).Offset(1, 0).CopyFromRecordset Cnn.Execute(Sql)
     Cnn.Close
    sh = Dir
Wend
    m = Range("a65536").End(xlUp).Row
    Cnn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.FullName
    rst.Open "select 工号,姓名,sum(数量) from [汇总$a2:c" & m & "] group by 工号,姓名", Cnn, 1, 3
    Range("a3:c" & m).ClearContents
    Range("a3").CopyFromRecordset rst
    rst.Close: Cnn.Close
End Sub

在狼版代码的基础上进行了一下完善，看是否符合要求。不过个人觉得比较麻烦，但又想不到更好的解决办法。

lvxiaowei

我也想知道的～

lovetxt

支持啊，学习…………

xriver

高手过招，好贴不能沉！

好001

狼行天下
龙的梦
都是高手。赞一个，这非常高效准确，学习了，谢谢两位高手

zj54891

good
高人 谢谢