EXCEL用SQL语句连接xlsx文件,select*from语句报错

EXCEL用SQL语句连接xlsx文件,select*from语句报错

Option Explicit
Dim con As ADODB.Connection
Dim rs As ADODB.Recordset

Private Sub TextSearch_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

If Me.TextSearch.Value = ActiveCell.Value Then
Me.TextSearch.Value = ""
End If

Set con = New ADODB.Connection
con.Open "provider=microsoft.ace.oledb.12.0;extended properties=excel 12.0;data source=" & _
ThisWorkbook.Path & "\test.xlsx"

Dim sql As String
sql = "select 编号&名称 from [数据源$A2:Q563655]"
Set rs = con.Execute(sql)

Dim i As Integer
With ListSearch
.Clear
For i = 1 To rs.RecordCount
.AddItem rs("编号") & Space(2) & rs("名称")
rs.MoveNext
Next i
End With

rs.Close

End Sub

运行结果及报错内容:至少一个参数没有被指定值 ,监测from没有获取到值

预期效果:能在界面上下拉显示【编号 名称】,进行筛选

img

img

img

编号&名称 是你的字段名?还是两个字段啊?
如果是两列,那么应该 select 编号,名称 from [数据源$A2:Q563655]

两个可能得问题,要么是con没有连接成功 ; 要么是from 后面得表数据源没有获取到