欢迎大家来到IT世界,在知识的湖畔探索吧!

大家好，我是涂涂

今天涂涂给大家分享下Excel SQL应用之一，比较运算符在SQL中的使用。

比较运算符:

等于(=)、大于(>)、小于(<)、不等于(<>)、大于等于(>=)、小于等于(<=)

问题：

从数据源工作表中，查找校正费用大于300元的仪器数据，并将这些仪器的【中文名称】、【管理编号】、【校正费用】信息导入到结果表工作表中。

操作方法

步骤1

◆点击【开发工具】选项卡，点击【Visual Basic】，打开VBE编辑器

◆在VBE编辑器中，选中左侧工程管理器中的结果表，右键插入模块

◆双击新建的模块，在右侧的代码区域输入下记代码，保存，关闭VBE编辑器

代码

Sub SQL_01()    
      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 校正费用 > 300"
      '    **********************************************************************************    
      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    
      Conn.Close    
      Set Conn = Nothing    
      Set Rst = Nothing
End Sub

欢迎大家来到IT世界,在知识的湖畔探索吧!

步骤2

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

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

效果图：

修改查询条件：

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

①查找校正费用小于300元

Select 中文名称,管理编号,校正费用 from [数据源$] where 校正费用 < 300

②查找校正费用等于300元

Select 中文名称,管理编号,校正费用 from [数据源$] where 校正费用 = 300

③查找校正费用小于等于300元

Select 中文名称,管理编号,校正费用 from [数据源$] where 校正费用 <= 300

④查找校正费用大于等于300元

Select 中文名称,管理编号,校正费用 from [数据源$] where 校正费用 >= 300

⑤查找校正费用不等于300元

Select 中文名称,管理编号,校正费用 from [数据源$] where 校正费用 <> 300

Tips：

◆Where子句中比较运算符后面的值是数值，所以不需要单引号引起来

◆Select … from之间的列标题为导出的内容，可根据需要自行增删列标题

我猜你需要的链接：

1、Excel各版本启用宏的设置方法

2、初识Excel SQL，我们不应错过的查询利器–VBA方法

等更新太累，想要了解更多，分享你的疑难杂症，

欢迎关注我的Excel微信公众号，进群一起探讨。

职场高效Excel