excelVBA中用sql查询数据，想用inputbox输入查询的字段值

ricerose

有两个excel表格,用一个表格调用另一个表格中的数据,用的是sql语句,想用inputbox输入查询的字段值,比如 查询 "姓名=A1"的人的信息,  但是报错,希望帮忙解决,谢谢

砂海

.xlsx 没搞定 , .xls 如下

Private Sub CommandButton1_Click()
Dim cnn As Object, SQL$
a = InputBox(" ", , "A1")
Set cnn = CreateObject("ADODB.Connection")
    cnn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.Path & "/基数数据.xls"
    SQL$ = "Select * from [Sheet1$] where 姓名 like '" & a & "'"         '文本值前后 要加 单引号 , 日期值 前后加 #
   [a2].CopyFromRecordset cnn.Execute(SQL)
   cnn.Close
    Set cnn = Nothing
End Sub

砂海

.xlsx 用这句

cnn.Open "Provider=Microsoft.Ace.OleDb.12.0;" + "data source=" & ThisWorkbook.Path & "/基数数据.xlsx" & ";Extended Properties='Excel 12.0; HDR=Yes; IMEX=1'"

ricerose

多谢老师的帮助，问题解决了