Question

各位高手，在EXCEL的单元格中输入SQL查询语句（如图所示），怎么就能够导出结果呢？

各位高手，在EXCEL的单元格中输入SQL查询语句（如图所示），怎么就能够导出结果呢？这一过程是怎么做到的，运用到了哪些知识？如果我也要这样导出数据，该怎么做呢？

Answer 1

createobject("adodb.connection") EXCEL 中使用SQL 必须要先引用这个对象，然后才可以使用相关的属性和方法
而且语言也不是完全相同，因为application不一样
基本可以在VBE中进行编写，

Answer 2

'在VBA中引用Microsoft ActiveX Date Object 2.0,粘贴一下代码
'把ConnectionString字符串改成你的服务器,数据库,账号和密码,我这是连接的SQL Server,如果是其他数据库,连接方式可能要改一下
'sheet1的A1单元格输入SQL语句
'按Alt+F8执行,结果放在sheet2

Public Sub GetData()

Dim Flag, Err As Boolean
Dim Cnn As ADODB.Connection
Dim Rst As ADODB.Recordset
Dim SQL As String

Sheet2.Cells.Clear

Flag = False
Err = True

Set Cnn = New ADODB.Connection
On Error GoTo label
With Cnn
.Provider = "SQLOLEDB"
.ConnectionString = "Driver=SQL Server;Server=mxb\sqlexpress;Database=test;Uid=sa;Pwd=xiaoma;"
.Open
End With

Set Rst = New ADODB.Recordset
SQL = Sheet1.Range("A1").Value

Rst.Open SQL, Cnn, adOpenKeyset, adLockBatchOptimistic

Sheet2.Range("A1").CopyFromRecordset Rst

label:

Rst.Close
Cnn.Close
Set Rst = Nothing
Set Cnn = Nothing

End Sub

Answer 3

搞笑了，你这个SQL语句用在哪里的？