在EXCEL中使用SQL语句查询集锦-持续更新中，敬请关注

opiona

dong20030432 发表于 2019-1-26 10:00
高手您好！有个问题想请教您一下：
当用SQL语句在多个工作簿中查询数据时，如果这些工作簿的查询字段所 ...

工参考：

1. 
   
2. Sub TEST()
   
3.    
   
4.     path1 = ThisWorkbook.Path & "\工作簿1.xlsx"
   
5.     path2 = ThisWorkbook.Path & "\工作簿2.xlsx"
   
6.    
   
7.     StrSQL = StrSQL & "SELECT [客户编码],[客户名称],[收入版块]"
   
8.     StrSQL = StrSQL & ",SUM([前月毛利率]) AS [前月毛利率]"
   
9.     StrSQL = StrSQL & ",SUM([上月毛利率]) AS [上月毛利率]"
   
10.     StrSQL = StrSQL & " FROM ("
    
11.    
    
12.     StrSQL = StrSQL & "SELECT [客户编码],[客户名称],[收入版块]"
    
13.     StrSQL = StrSQL & ",[毛利率C] AS [前月毛利率]"
    
14.     StrSQL = StrSQL & ",[毛利率D] AS [上月毛利率]"
    
15.     StrSQL = StrSQL & " FROM [Excel 12.0;HDR=YES;Database=" & path1 & "].[工作表名1$]"
    
16.    
    
17.     StrSQL = StrSQL & " UNION ALL "
    
18.     StrSQL = StrSQL & " SELECT [客户编码],[客户名称],[收入版块]"
    
19.     StrSQL = StrSQL & ",[毛利率A] AS [前月毛利率]"
    
20.     StrSQL = StrSQL & ",[毛利率B] AS [上月毛利率]"
    
21.    
    
22.     StrSQL = StrSQL & " FROM [Excel 12.0;HDR=YES;Database=" & path2 & "].[工作表名2$]"
    
23.    
    
24.     StrSQL = StrSQL & ") GROUP BY [客户编码],[客户名称],[收入版块]"
    
25.    
    
26.     Str_coon = "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='Excel 12.0;HDR=yes';Data Source =" & ThisWorkbook.FullName
    
27.    
    
28. End Sub
    

复制代码

dong20030432

opiona 发表于 2019-1-26 13:23
工参考：

非常感谢您的代码！学习下。

zhougencai

正在学习，收藏了，感谢大侠！！！

梦无

占位，学习.

liaoxianlu

大神好厉害

zhougencai

受益非浅！！

kinguXie

好贴，一定要收藏好！谢谢楼主！

huajunliang

请教版主，如果要将“马纳多纳”到的结果的年龄 赋值给数组变量array
Sheets("结果").Range("a2").CopyFromRecordset rs

如何实现，谢谢！

opiona

huajunliang 发表于 2019-4-15 15:22
请教版主，如果要将“马纳多纳”到的结果的年龄 赋值给数组变量array
Sheets("结果").Range("a2").CopyFro ...

http://club.excelhome.net/thread-1409141-1-1.html

后面几个用到SQL的 里面有写好的函数：
SQLARR = GET_SQL_To_Arr(StrSQL, Str_coon, False)

1. '*****************************************************************************************
   
2. '函数名：    GET_SQL_To_Arr
   
3. '函数功能：  获得指定SQL的查询结果，自定义连接字符串，可以连接各种数据库
   
4. '返回值：    返回一个二维数组
   
5. '参数1：     StrSQL   字符类型   SQL查询语句
   
6. '参数2：     Str_coon 字符类型   数据库连接语句
   
7. 'Str_coon = "Provider=Microsoft.JET.OLEDB.4.0;Extended Properties='Excel 8.0;HDR=yes';Data Source=" & ThisWorkbook.FullName      '//OFFICE2003
   
8. 'Str_coon = "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='Excel 12.0;HDR=yes';Data Source =" & ThisWorkbook.FullName     '//OFFICE2007
   
9. 'Str_coon = "HDR=yes';Data Source =" & FileArr(i)    '//OFFICE2003，2007 通用
   
10. '参数3：     Biaoti   可参数选   是否输出标题，默认带有标题
    
11. '使用方法：
    
12. '            SQLARR= GET_SQL_To_Arr(StrSQL,Str_coon,true)
    
13. '            SQLARR(0,1)  '//数组第一行为标题行，从i=1 开始是数据
    
14. '            Sh2.Range("A2").Resize(UBound(SQLARR, 1) + 1, UBound(SQLARR, 2) + 1) = SQLARR
    
15. '整理：北极狐工作室 QQ：14885553

复制代码

huajunliang

各位大咖，请教下：dim VariableName as string
VariableName = "InterliningInformationDataBase"
SQL = "select * from  [参数设定$A1:C100] where 变量名=" & VariableNameSet rs = cnn.Execute(SQL)     '报错“至少一个参数没有被指定值”




而以下写法，正常输出结果：
SQL = "select * from  [参数设定$A1:C100] where 变量名='InterliningInformationDataBase'"Set rs = cnn.Execute(SQL)



请教怎么解决，谢谢！