作者：绿色风
分类：
时间：2022-08-17
浏览：224
楼主
wise |
Q:如何用VBA结合SQL来提取为空值或不为空值的记录?
A:具体请看以下程序
提取记录为空的纪录：
- Sub 空值()
- Dim i As Long '定义一个变量
- i = Sheets("Sheet2").Range("A65536").End(xlUp).Row + 1
- Sheets("Sheet2").Range("A2:E" & i).ClearContents '清除记录
- Set conn = CreateObject("adodb.connection") '创建链接对象，conn 为变量
- conn.Open "provider=microsoft.jet.oledb.4.0;extended properties= excel 8.0;data source=" & ThisWorkbook.FullName '打开数据源并且建立链接
- S = "select * from [数据源$] where 颜色 is null " '关键提取颜色为空的SQL语句
- Sheets("Sheet2").[a2].CopyFromRecordset conn.Execute(S) '使用Execute语句执行SQL语句，取得符合要求的记录
- conn.Close '关闭数据源
- Set conn = Nothing
- End Sub
提取记录不为空的纪录
- Sub 非空值()
- Dim i As Long
- i = Sheets("Sheet2").Range("A65536").End(xlUp).Row + 1
- Sheets("Sheet2").Range("A2:E" & i).ClearContents
- Set conn = CreateObject("adodb.connection")
- conn.Open "provider=microsoft.jet.oledb.4.0;extended properties= excel 8.0;data source=" & ThisWorkbook.FullName
- S = "select * from [数据源$] where 颜色 is not null " '关键提取非空记录的SQL语句
- Sheets("Sheet2").[a2].CopyFromRecordset conn.Execute(S)
- conn.Close
- Set conn = Nothing
- End Sub
 VBA+SQL选取空及非空记录.rar
|
2楼
水星钓鱼 |
感谢分享。 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一