Sub test()
Dim sFullname As String
Dim sSQL As String
Dim conn As Object
Dim sDrv As String
Set conn = CreateObject("ADODB.Connection")
conn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.FullName
sSQL = "Select [data$].sale from [data$] ,[query$] where [data$].zone=[query$].zone"
Sheet2.[D2].CopyFromRecordset conn.Execute(sSQL)
conn.Close
Set conn = Nothing
End Sub
改了一下数据库联接的语句,就运行出错,不知道如果硬要用 oledb 那种数据库连接,要怎样修改 sql 语句才行?