001 初识Excel SQL，我们不应错过的查询利器--VBA方法

职场高效Excel 12-10 179

前言：

而今姐妹们对“vba上传数据到sql”大体比较关怀，兄弟们都需要学习一些“vba上传数据到sql”的相关知识。那么小编在网络上网罗了一些关于“vba上传数据到sql””的相关知识，希望我们能喜欢，同学们一起来学习一下吧！

大家好，我是涂涂

今天涂涂给大家说说SQL，何为SQL呢？

SQL，即结构化查询语言(Structured Query Language)的简称，是一种特殊目的的编程语言，是一种数据库查询和程序设计语言，用于存取数据以及查询、更新和管理关系数据库系统。

SQL极大的灵活性和强大的查询功能，是我们不应错过的查询利器。

今天涂涂给大家分享下如何在Excel中通过VBA方法来使用SQL语句进行数据的查询。

问题：

从数据源工作表中，查找中文名称为“万用表”的数据，并将这些万用表的【中文名称】、【型号】、【管理编号】信息导入到结果表工作表中。

操作方法

步骤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 中文名称='万用表'"    '    **********************************************************************************        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 = NothingEnd Sub

步骤2

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

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

效果图：

修改查询条件：

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

例如：需要提取中文名称为“万用表”的所有信息，如何修改呢？

只需将SQL语句中的全部列字段删除，换成*星号即可

SQL语句修改如下：

select * from [数据源$] where 中文名称='万用表'

SQL select子句语法：

select 列标题1,列标题2,列标题3 from [工作表名称$] where 列标题运算符值