欢迎大家来到IT世界,在知识的湖畔探索吧!
大家好,我是涂涂
今天涂涂给大家分享下Excel SQL 逻辑运算符BETWEEN的用法。
问题:
【数据源】工作表中,导出2020年2月份入职的人员信息到【结果表】工作表中。
操作方法
通过SQL的BETWEEN运算,可以方便地查询字段值在某一范围内的数据。
步骤1
◆点击【开发工具】选项卡,点击【Visual Basic】,打开VBE编辑器
◆在VBE编辑器中,选中左侧工程管理器中的结果表,右键插入模块
◆双击新建的模块,在右侧的代码区域输入下记代码,保存,关闭VBE编辑器
代码示例
Sub SQL_BETWEEN用法()
Dim Conn As Object
Dim Rst As Object
Dim SQL, Ver As String
Dim i As Long
Set Conn = CreateObject("ADODB.Connection")
Set Rst = CreateObject("ADODB.Recordset")
Cells.ClearContents
Ver = "provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data source=" & ThisWorkbook.FullName 'Excel2007以上版本
Conn.Open Ver
' **********************************************************************************
SQL = "SELECT 工号,姓名,入职日期 FROM [数据源$] WHERE 入职日期 BETWEEN #2020-2-1# AND #2020-2-29#"
' **********************************************************************************
Set Rst = Conn.Execute(SQL)
For i = 0 To Rst.Fields.Count - 1
Cells(1, i + 1) = Rst.Fields(i).Name
Next i
Range("A2").CopyFromRecordset Rst
Rst.Close
Conn.Close
End Sub
欢迎大家来到IT世界,在知识的湖畔探索吧!
步骤2
◆选中结果表工作表,点击【开发工具】选项卡,点击【插入】下拉箭头,点击【按钮】命令
◆在表格空白处,拖动鼠标画一个矩形,然后指定宏即可
效果图:
修改查询条件:
按<Alt+F11>打开VBE编辑器,修改代码中的SQL语句
例如:导出销售额金额在10000元和20000元之间的人员名单。
SQL语句修改如下:
SELECT * FROM [数据源$] WHERE 销售额 BETWEEN 10000 AND 20000
Tips:
◆日期两端需加上井字符号(#)
◆查找某个区间的数据,一般使用BETWEEN … AND …
等更新太累,想要了解更多,分享你的疑难杂症,
欢迎关注我的Excel微信公众号,进群一起探讨。
免责声明:本站所有文章内容,图片,视频等均是来源于用户投稿和互联网及文摘转载整编而成,不代表本站观点,不承担相关法律责任。其著作权各归其原作者或其出版社所有。如发现本站有涉嫌抄袭侵权/违法违规的内容,侵犯到您的权益,请在线联系站长,一经查实,本站将立刻删除。 本文来自网络,若有侵权,请联系删除,如若转载,请注明出处:https://itzsg.com/18022.html