用SQL对其他工作簿求和后匹配

jomirko

请见附件，要求是从其他工作簿中提取数据，求和后匹配到查询表中，我写的SQL一直报错，不知道怎么回事，求另写编码，如能指点一二，不胜感谢~(原先的路径名忘记改了，现在改过来了)

zhaogang1960

请测试:

1. Sub Macro1()
   
2.     Dim Fso As Object, File As Object, cnn As Object, SQL$
   
3.     Set cnn = CreateObject("adodb.connection")
   
4.     cnn.Open "provider = microsoft.ace.oledb.12.0;extended properties= excel 12.0;data source=" & ThisWorkbook.FullName
   
5.     Set Fso = CreateObject("Scripting.FileSystemObject")
   
6.     For Each File In Fso.GetFolder(ThisWorkbook.Path).Files
   
7.         If File.Name Like "*.xls" Then
   
8.             If Len(SQL) Then SQL = SQL & " union all "
   
9.             SQL = SQL & "select * from [Excel 12.0;Database=" & File & "].[sheet1$] where not 商品编码 is null"
   
10.         End If
    
11.     Next
    
12.     SQL = "select b.商品名称,b.销售数量 from [Sheet1$] a left join (select 商品编码,商品名称,sum(销售数量) as 销售数量 from (" & SQL & ") group by 商品编码,商品名称) b on a.商品编码=b.商品编码*1"
    
13.     Range("b2").CopyFromRecordset cnn.Execute(SQL)
    
14.     Set File = Nothing
    
15.     Set Fso = Nothing
    
16. End Sub
    

复制代码

zhaogang1960

请看附件
test.rar (77.49 KB, 下载次数: 26)

2013-10-23 16:17 上传

点击文件名下载附件

jomirko

zhaogang1960 发表于 2013-10-23 16:18
请看附件

多谢版主{:soso_e179:}                        

LMY123

SQL = "select b.商品名称,b.销售数量 from [Sheet1$] a left join (select 商品编码,商品名称,sum(销售数量) as 销售数量 from (" & SQL & ") group by 商品编码,商品名称) b on a.商品编码=b.商品编码*1"

ggmmlol

LMY123 发表于 2018-8-23 17:16
SQL = "select b.商品名称,b.销售数量 from [Sheet1$] a left join (select 商品编码,商品名称,sum(销售数 ...

这是新潮的 强势围观 + 合影留念 么？