……
这个问题，系列文的第1章我们就讲过了，然而后台总是收到类似的提问，所以今天就再集中说一次。
一般有三种方法。
一种是MS Query法，不常用，省略。
一种是OLE DB法。具体过程是，单击Excel【数据】选项卡下的【现有链接】，在弹出的【现有链接】对话框中，单击【浏览更多】，选取目标文件后，依次【确定】，得到下面的【导入数据】对话框。
图一
然后单击【属性】按钮，得到【连接属性】对话框，再单击【定义(D)】选项卡，即可在【命令文本】编辑框中输入SQL语句，并【确定】执行。如下图所示。
这种方法通常搭配数据透视表（图一的显示方式选择【数据透视表(P)】），此时SQL获取的记录集会自动成为透视表的数据源。
此外也可以搭配Power Pivot（高级版本Excel勾选图一的【将此数据添加到数据模型】）。
对于没有VBA基础的朋友来说，通常推荐这种方法，只要会写SQL查询语句，就可以直接使用了。
下面是一个操作过程示例动画：
……
……
我们分享的系列文章主要是使用的第3种方法，也就是VBA ADO SQL。
和第2种方法相比较，该法的优点系列文里已经说过很多了，这里也就不再细说。最重要的其实就两点，掰手指头，啊，我的手指头好白——想念故乡的雪。
1，借助VBA，SQL语句可以使用变量等。
2，借助ADO，对数据，除了查，还可以增改删。
对于VBA代码连面都不熟的朋友而言，是不是就不能使用VBA执行SQL了呢？
并不是。
VBA执行SQL语句有一个固定的套路。
哪怕你连VBA代码一句都看不懂也没关系，只要知道在哪里写入SQL语句就可以了。
也就是下列代码字体加粗的部分。
代码如下：
Sub DoSql_Execute()
Dim cnn As Object, rst As Object
Dim Mypath As String, Str_cnn As String, Sql As String
Dim i As Long
Set cnn = CreateObject("adodb.connection")
Mypath = ThisWorkbook.FullName
If Application.Version < 12 Then
Str_cnn = "Provider=Microsoft.jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=" & Mypath
Else
Str_cnn = "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & Mypath
End If
cnn.Open Str_cnn
Sql = "SELECT * FROM [学生表$]" "//请在此处写入你的SQL代码
Set rst = cnn.Execute(Sql)
Cells.ClearContents
For i = 0 To rst.Fields.Count - 1
Cells(1, i 1) = rst.Fields(i).Name
Next
Range("a2").CopyFromRecordset rst "
cnn.Close
Set cnn = Nothing
End Sub
