Question

使用VBA中使用ADO连接excel报错

请请教大神为什么执行下面这段代码时会报错...

Sub test()
Dim adocon As Object, strsql As String, strcon As String
Set adocon = CreateObject("adodb.connection")
strcon = "provider=microsoft.ace.oledb.12.0;" & _
"data source=" & ThisWorkbook.Path & Application.PathSeparator & _
"数据库.xlsx;extended properties=""excel 12.0;HDR = YES"";"
strsql = "select 数量 from [Sheet1$a1:b4] where 动物 = 乌龟"
adocon.Open strcon
ActiveSheet.Range("b1").CopyFromRecordset adocon.Execute(strsql)
adocon.Close
End Sub

Answer 1

where 动物 = 乌龟 一般就不对哦，应该是 动物='乌龟'

如果是程序的话，单单给代码，没有交代环境，是没法回答得。