问答文章1 问答文章501 问答文章1001 问答文章1501 问答文章2001 问答文章2501 问答文章3001 问答文章3501 问答文章4001 问答文章4501 问答文章5001 问答文章5501 问答文章6001 问答文章6501 问答文章7001 问答文章7501 问答文章8001 问答文章8501 问答文章9001 问答文章9501

怎么在excel中正确使用SQL的查询语句

发布网友 发布时间:2022-04-26 14:08

我来回答

1个回答

热心网友 时间:2022-06-28 21:58

ALT+F11,打开VBE,插入一个模块,把以下代码复制进去:
Sub dosql(sql, a As Range)
Dim Conn As Object
Set Conn = CreateObject("ADODB.Connection")
Set rst = CreateObject("ADODB.Recordset")
PathStr = ThisWorkbook.FullName
Select Case Application.Version * 1
Case Is <= 11
strConn = "Provider=Microsoft.Jet.Oledb.4.0;Extended Properties=excel 8.0;Data source=" & PathStr
Case Is >= 12
strConn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & PathStr & ";Extended Properties=""Excel 12.0;HDR=YES"";"""
End Select
Conn.Open strConn
Set rst = Conn.Execute(sql)
If VBA.InStr(sql, "select") > 0 or VBA.InStr(sql, "Select") > 0 Then
With a.Parent
For i = 0 To rst.fields.Count - 1
.Cells(1, a.Column + i).EntireColumn.ClearContents
.Cells(1, a.Column + i) = rst.fields(i).Name
Next
End With
a.Offset(1).CopyFromRecordset rst
For i = 0 To rst.fields.Count - 1
a.Parent.Cells(1, a.Column + i).EntireColumn.AutoFit
Next
End If
Conn.Close
End Sub
Public Sub t()
'sql = "这里写你的查询语句"
dosql sql, [E1]
End Sub
1、记得运行代码前要保存工作簿
2、查询语句中,表名是[工作表名$]这样的格式
3、dosql sql, [E1]中的E1,就是要放查询结果的区域左上角那个单元格。
声明声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。E-MAIL:11247931@qq.com
卡耐基的智慧大全集内容简介 会说话赢天下内容简介 卡耐基演讲与口才内容简介 商务口才训练内容简介 卡耐基金牌口才作者简介 卡耐基商务口才 作者简介 爱因斯坦的更多故事 杨柯叶谨言是什么电视 房贷和消费贷利率差别不大,但是还款金额差别挺大,都是怎么计算的... ...11月18号提现1500元、,11月25号还款1515,请问我还需要还 Excel VBA SQL如何多表联合查询? excel SQL多表查询问题 WPS word一开始编辑就卡死,完全动不了,需要打开任务管理器强制关闭,是什么原因? 怎么关闭wps桌面整理 wps的word文档,打开后选中文字是就会跳出一个这样的框然后强行关闭软件,如何解决? WPS文档打开多个窗口后无法关闭怎么办 WPS word 文档打开后容易卡住不能动?需要用任务管理器强制关闭! 你好,请问怎么关掉电脑Wps文档 微信来消息怎么不显示 佳能新百微可以加装近摄镜吗 佳能18-200mm镜头十近摄镜拍摄微距效果好不 请问佳能18-55mm镜头怎么样才能拍微距(用上近摄镜或近摄圈可以吗?) 单反相机近摄镜的选用 佳能85丨.4的镜头可以装近摄圈吗 佳能85 F1.8镜头可以用近摄镜吗 佳能500D使用近摄镜为什么无法对焦? 佳能77mm近摄镜片 500d 增距延长管 ef12 ii 有什么不同 请教几个佳能镜头的字符含义 佳能60d配什么镜头适合拍近物 新买的佳能18-135镜头有时候拍近的东西对不上焦是怎么回事? oppo手机微信隐藏了在哪找出来 我的‘设置’-‘隐私’-‘定位服务’-在这里怎么找不到微信呢 excel使用sql语句查询功能. 彩色皮夹克怎么清洁与保养 Excel表中连接sql并使用sql语句引用excel单元格数据作为查询条件 Excel 如何使用SQL语句联接两个表中的数据 EXCEL中的SQL语句查询并分类汇总 浏览器限制网页站点怎么办?怎么更改安全设置 皮沙发被孩子涂上彩色笔颜色,如何去掉 如何修改浏览器的安全设置啊? 请教,皮沙发被衣服染色,怎样处理 win7在哪里设置缺省web浏览器? 我在学校测量实训两周(就是水准仪,经纬仪,全站仪)现在老师要我们写一千字的实训报告 跪求~ 经纬仪水准仪检校实习报告 土木工程测量实习要用的 水准仪测量高差的实训报告 求一篇关于测量的实训报告 怎么写三四等水准测量实训报告? 谁有水利工程测量实训报告 水准仪的实验目的 求:建筑工程全过程实训报告 2000字左右