大家好,我是涂涂
今天涂涂给大家说说SQL,何为SQL呢?
SQL,即结构化查询语言(StructuredQueryLanguage)的简称,是一种特殊目的的编程语言,是一种数据库查询和程序设计语言,用于存取数据以及查询、更新和管理关系数据库系统。
SQL极大的灵活性和强大的查询功能,是我们不应错过的查询利器。
今天涂涂给大家分享下如何在Excel中通过VBA方法来使用SQL语句进行数据的查询。
问题:
从数据源工作表中,查找中文名称为“万用表”的数据,并将这些万用表的【中文名称】、【型号】、【管理编号】信息导入到结果表工作表中。

步骤1
◆在VBE编辑器中,选中左侧工程管理器中的结果表,右键插入模块
◆双击新建的模块,在右侧的代码区域输入下记代码,保存,关闭VBE编辑器

代码:
SubSQL_01()DimConnAsObjectDimRstAsObjectDimSQL,VerAsStringDimiAsLongSetConn=CreateObject("")SetRst=CreateObject("")="provider=;ExtedProperties=;Datasource="'Excel2007以上版本'**********************************************************************************SQL="Select中文名称,型号,管理编号from[数据源$]where中文名称='万用表'"'**********************************************************************************SetRst=(SQL)Fori=0(1,i+1)=(i).NameNextiRange("A2").=NothingSetRst=NothingSub步骤2
◆在表格空白处,拖动鼠标画一个矩形,然后指定宏即可

效果图:
修改查询条件:
◆按Alt+F11打开VBE编辑器,修改代码中的SQL语句
例如:需要提取中文名称为“万用表”的所有信息,如何修改呢?
只需将SQL语句中的全部列字段删除,换成*星号即可
SQL语句修改如下:
select*from[数据源$]where中文名称='万用表'
SQLselect子句语法:
select列标题1,列标题2,列标题3from[工作表名称$]where列标题运算符值
select中文名称,型号,管理编号from[数据源$]where中文名称='万用表'
◆中文名称,型号,管理编号叫做列字段(即列标题),各字段之间使用英文逗号隔开
◆查询结果返回的信息,分别对应中文名称,型号,管理编号列标题,列标题的增删请随意
◆[数据源$]是数据源工作表的名称,后面必须要跟一个$符号,并用方框号[]括起来
◆中文名称='万用表',这里的值是文本,需要使用单引号引起来
Tips:
本例的数据源工作表和结果表工作表同在一个工作簿中,如果数据源是单独的一个工作簿,那么SQL语句中则需要增加数据源工作簿的地址了。
[D:\Excel关联\仪器总表.xlsx].[数据源$]
◆第一方括号[]是包含路径的数据源工作簿名称,第二个方括号[]是数据源工作簿中工作表的名称
◆两个方括号之间使用.点号连接,表示从属关系
等更新太累,想要了解更多,分享你的疑难杂症,
职场高效Excel