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

tclnxc

opiona 发表于 2013-1-20 21:05
限制查询多少列数据（或者说多少字段数），字段名之间用[,]分割，没有空
你就在SQL写入多少个字段饿名称
...

谢谢！我以为也可象记录数一样直接用代码限制前面N列而不用列出字段名呢

opiona

这就是熟练的问题了，前面有个帖子是长语句连接的
例如列标题在A1:D1  姓名、年龄、性别、工资

1. for i=1 to 4
   
2. if StrSQL="" then
   
3. StrSQL="select " & sheet1.cells(1,I)
   
4. else
   
5. StrSQL=StrSQL & "," & sheet1.cells(1,I)
   
6. end if
   
7. next I
   
8. StrSQL=StrSQL & " from 工资表"

复制代码

freeffly

收下學習
大師辛苦了

tclnxc

大师，可否给我看看附件中这句SQL出现了什么问题？另外，多表多字段（各表字段相同）可否有这样 的写法：SQL = "select 年份,期间,业务日期,单据日期,凭证字,凭证号,摘要,客户代码 from [1109$][1110$][1111$]"，谢谢！
Sub 复制数据()
  Dim cnn As New ADODB.Connection
  Dim SQL As String
  With cnn
     .Provider = "Microsoft.Jet.OLEDB.4.0"
     .ConnectionString = "Extended Properties=Excel 8.0;Data Source=" & ThisWorkbook.FullName
     .Open
  End With
  For Each Sh In Sheets
  If Sh.Index > Sheets("汇总表").Index Then
  l = Sheets("汇总表").Range("A60000").End(3).Row
    SQL = "select 年份,期间,业务日期,单据日期,凭证字,凭证号,摘要,客户代码,客户名称,销售部门代码,Tulip单号,CRM单号,核对,商品名称,规格型号,数量,含税单价,价税合计" & _
"from[" & Sh.Name & "$a1:s65536]where 核对='未回'"
   Sheets("汇总表").Range("a" & l + 1).CopyFromRecordset cnn.Execute(SQL)
  End If
  Next
  cnn.Close
  Set cnn = Nothing
End Sub
终于发现了问题，原来是表的格式不对

opiona

1. SELECT A.姓名,A.年龄,C.性别,B.得分 FROM [数据表_1$] AS A,[数据表_2$] AS B,[数据表_2$] AS C WHERE A.姓名=B.姓名 AND A.姓名=C.姓名

复制代码

这样可以连接多个表，
一般要求关键字（这里是姓名）各表都有，
而且最好不重复（如果有重复，结果可能不是你需要的，例如：利用一楼的附件）

tclnxc

opiona 发表于 2013-1-23 10:51
这样可以连接多个表，
一般要求关键字（这里是姓名）各表都有，
而且最好不重复（如果有重复，结果可能 ...

非常感谢！为什么字段名前面的字母不是同一个表的代号呢？这样表示应该是从不同表中分别提取不同字段数据吗？但如果我想从各表中都要提取相同字段的数据，是否不需加代号呢？另外，如果是多个工作表中字段名顺序不一致或者说有些分表中个别字段缺少的话，想要提取相同字段的数据汇总到一个工作表中，是不是只能循环选择每一个相同字段数据逐一复制到汇总表中呢？

opiona

各表中都要提取相同字段的数据
如果各表的字段完全相同：

1. SELECT * FROM TABEL1 UNION ALL SELECT * FROM TABEL2  UNION ALL SELECT * FROM TABEL3
   

复制代码

如果各表的字段不完全相同，就选择都有的字段：

1. SELECT 姓名,年龄 FROM TABEL1 UNION ALL SELECT 姓名,年龄 FROM TABEL2  UNION ALL SELECT 姓名,0 as 年龄 FROM TABEL3  
   

复制代码

(假设TABEL3内没有年龄这个字段，可以用：0、'字符'、Null 来占位
这样的结果是列出几个表这些指定字段的全部内容
UNION ALL 和 UNION 不同之处在于 UNION ALL 会将每一笔符合条件的资料都列出来，无论资料值有无重复
使用UNION这个指令时，我们只会看到不同的资料值 (类似 SELECT DISTINCT）资料值无重复

tclnxc

opiona 发表于 2013-1-23 18:48
各表中都要提取相同字段的数据
如果各表的字段完全相同：
如果各表的字段不完全相同，就选择都有的字段： ...

谢谢！对SQL语句又有了些理解

忘得快

opiona 发表于 2012-4-24 16:33
'Excel2003版本：cnn.Open "Provider=Microsoft.jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data So ...

大侠你好！用SQL语句查询能否做到在不打开文件（文件有打开密码123）进行查询？请见附件，谢谢！ 跨表多条件汇总.rar (37.95 KB, 下载次数: 98)

2013-1-28 22:50 上传

点击文件名下载附件

opiona

忘得快 发表于 2013-1-28 22:50
大侠你好！用SQL语句查询能否做到在不打开文件（文件有打开密码123）进行查询？请见附件，谢谢！

ADO好像不支持带密码的Excel链接
可以先打开，链接，然后在关闭
打开的代码：

1. Set WB = Workbooks.Open(Filename:=ThisWorkbook.Path & "\A1.xls", Password:="123")  '//打开带密码的工作簿
   
2. 
   
3. 
   
4. WB.Close   '//关闭工作簿
   
5. Set WB = Nothing

复制代码