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

xiaotiebaba · 发表于 2012-8-22 08:41

做个记号学习！

蘿肥 · 发表于 2012-8-23 14:21

很好{:soso_e100:}

sc6231565 · 发表于 2012-8-25 18:58

谢谢楼主，正在学习ing

opiona · 发表于 2012-8-25 19:38

获取全部字段名.rar (10.97 KB, 下载次数: 839)

使用SQL+ADO时，很多时候不知道字段名如何正确书写，
例如： Name、Number、8月21日、

Sub 列出全部字段名()
Dim SQL$, i&, s$, s2$
Set cnn = CreateObject("ADODB.Connection")
Set rst = CreateObject("ADODB.Recordset")
Set Sh = Sheets("数据表")
Sh.Range("J:J").ClearContents
cnn.Open "provider=microsoft.jet.oledb.4.0;extended properties=Excel 8.0;data source=" & ThisWorkbook.FullName
StrSQL = "SELECT * FROM [" & Sh.Name & "$]"
Set rst = cnn.Execute(StrSQL)
'如果字段名和字段数量不好确定，如附件示例的字段名为：8月21日，
'可以使用rst.Fields(i).Name,就是陈列出所有字段名
'类似Name这样系统可能用到的字段名，可以用[]标示，如： SELECT [NAME] FROM [表名] WHERE [NUMBER]>20
For i = 0 To rst.Fields.Count - 1
Sh.Cells(i + 2, 10) = rst.Fields(i).Name
Next
rst.Close
cnn.Close
Set rst = Nothing
Set cnn = Nothing
End Sub

复制代码

hessen · 发表于 2012-8-26 16:05

开阔了思路顶！

cheng9gong · 发表于 2012-8-29 20:27

很好的帖子，谢谢楼主

晴朗的明天 · 发表于 2012-9-3 13:41

真牛xxxxxxx

jia_yin · 发表于 2012-9-5 13:56

占楼学习！楼主强大！

hehex · 发表于 2012-9-5 14:07

学习，学习，感谢楼主{:soso_e179:}

wangsp · 发表于 2012-10-25 15:08

学习了，受益非浅

		自动登录	找回密码
密码			免费注册

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