引言
在VBA中，我们可以使用SQL语句对Excel工作表数据进行增删改查的操作。其中，查询工作表数据是最经常使用的操作。SQL查询语句可大致分为以下几类：（1）基本查询；（2）条件查询；（3）模糊查询；（4）分组查询；（5）多表查询。
本文搭建了VBA+SQL查询的模板，并汇总了SQL基本查询的实际应用，为后续学习条件查询、分组查询、多表查询等内容打好坚定的基础。
VBA+SQL查询的模板
Excel工作簿路径，工作表的查询区域，读者可根据实际情况选择。本案例的取值如下表所示：
| 自定义设置参数 | 本案例取值 |
|---|---|
| Excel工作簿路径 | D:\员工数据库.xlsx |
| 工作表1-工资表 | [工资表$A3:M65536] |
| 工作表2-员工花名册 | [员工花名册$A1:I65536] |
[工资表$A3:M65536]
[员工花名册$A1:I65536]
注：本文的员工花名册、工资表均为虚构数据，如有雷同，纯属巧合。
我们可以打开或新建一个工作簿，在该工作簿的Visual Basic编辑器下，编写VBA代码。运行VBA代码后，会在第一张工作表前插入新工作表，用于存放【SQL查询结果】。
Sub VBA的SQL查询模板()
Dim conn As Object
Set conn = CreateObject("ADODB.Connection")
conn.Open "provider=microsoft.ace.oledb.12.0;extended properties='excel 12.0';data source='D:\员工数据库.xlsx'"
Dim sql As String
sql = "select * from [员工花名册$A1:I65536]"
Dim rs As Object
Set rs = CreateObject("ADODB.Recordset")
Set rs = conn.Execute(sql)
ActiveWorkbook.Sheets.Add before:=ActiveWorkbook.Sheets(1)
ActiveWorkbook.Sheets(1).Name = "SQL查询结果" & Format(Now, "yyyymmddhhmmss")
Dim i As Integer
For i = 0 To rs.Fields.Count - 1
ActiveWorkbook.Sheets(1).Cells(1, i + 1) = rs.Fields(i).Name
Next
ActiveWorkbook.Sheets(1).Range("a2").CopyFromRecordset rs
rs.Close: Set rs = Nothing
conn.Close: Set conn = Nothing
End SubSQL基本查询的实际应用
以下SQL的基本查询语句，只要将代码第7行的sql语句替换即可。
1、查询全部字段
| sql = "select * from [员工花名册$A1:I65536]" |
2、查询部分字段
| sql = "select 工号,姓名 from [员工花名册$A1:I65536]" |
3、查询不重复的记录（distinct关键字）
例：对员工的英文名进行去重查询
| sql = "select distinct 英文名 from [员工花名册$A1:I65536]" |
4、生成新的字段
例：根据出生日期查询生成出生年份
| sql = "select 姓名,year(出生日期) as 出生年份 from [员工花名册$A1:I65536]" |
5、用&连接符拼接字段
例：用“-”拼接员工的部门、学历
| sql = "select 姓名,部门&'-'&学历 as 部门学历 from [员工花名册$A1:I65536]" |
6、升序降序
例：按实发工资对工资表进行升序排列（默认为升序asc，降序desc）
| sql = "select * from [工资表$A3:M65536] order by 实发工资" |
7、top查询
例：查询年龄top5的员工信息
| sql = "select top 5 * from [员工花名册$A1:I65536] order by 年龄" |