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

office2008

谁有同一目录下多工作簿汇总(用ado+sql)的例子或网址,多谢

RSFoKpnx.rar (24.53 KB, 下载次数: 396)

2007-12-1 01:30 上传

点击文件名下载附件
[求助]求多工作簿汇总(用ado+sql)的例子或网址

[此贴子已经被作者于2007-12-1 1:31:00编辑过]

office2008

我把附件发上来请高手帮忙,谢谢

[此贴子已经被作者于2007-12-1 1:31:33编辑过]

office2008

继续顶，盼高手能予以帮助，谢谢！

northwolves

Sub test()
    Dim Sql$, Cnn As Object, i%, sh As String
        Set Cnn = CreateObject("ADODB.connection")
        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
    Set Cnn = Nothing
End Sub

office2008

谢谢狼版,三张表的数据提是全部提出来了,但分了三段,希望结果是

工号	姓名	数量
1	张三	255
2	李四	264
3	李四	429
4	赵六	447
5	刘邦	195
6	李世民	210
7	项羽	225
8	曹操	459
9	刘备	273
10	孙权	237
11	鲁肃	303
12	项羽	210
13	孙权	51

office2008

如果同名同姓,但并不代表一个人,只有加工号予以区别.

三个表汇总

office2008

另外一种理解就是

产品名称    规格        数量

金六福      250ml        5

金六福      500ml        15

蓝色经典    250ml        5

蓝色经典    500ml        5

这些数据分散在几个格式一样的表里

把他们汇总

northwolves

 

[此贴子已经被作者于2007-12-1 20:38:19编辑过]

office2008

目的达到了,lenghonghai,northwolves两位大师异曲同工.

感谢二位.

[此贴子已经被作者于2007-12-1 21:01:13编辑过]

兰州人

  p = ThisWorkbook.Path
    sh = Dir(p & "\明细*.xls")
也可以用FullName函数