003 Excel SQL BETWEEN运算符用法--VBA方法

职场高效Excel 04-27 88

前言：

此时同学们对“sql语言中逻辑运算符号”大约比较着重，小伙伴们都需要了解一些“sql语言中逻辑运算符号”的相关内容。那么小编也在网上汇集了一些有关“sql语言中逻辑运算符号””的相关知识，希望朋友们能喜欢，兄弟们快快来学习一下吧！

大家好，我是涂涂

今天涂涂给大家分享下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

步骤2

◆选中结果表工作表，点击【开发工具】选项卡，点击【插入】下拉箭头，点击【按钮】命令

◆在表格空白处，拖动鼠标画一个矩形，然后指定宏即可

效果图：

修改查询条件：

按<Alt+F11>打开VBE编辑器，修改代码中的SQL语句

例如：导出销售额金额在10000元和20000元之间的人员名单。

SQL语句修改如下：

SELECT * FROM [数据源$] WHERE 销售额 BETWEEN 10000 AND 20000

Tips：

◆日期两端需加上井字符号（#）

◆查找某个区间的数据，一般使用BETWEEN … AND …