如何在中使用语言

　　……
　　这个问题，系列文的第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