軟體: Excel
版本: 2016
初次嘗試ADO SQL,失敗收場....
目的是想從 Local Excel 抓取資料庫的 sheet1
出現錯誤為物件定義錯誤 (請看貼圖說明)
請問這該怎麼解呢?
'************貼圖說明**************
https: //ppt.cc/fF8LJx
***********************************
'**********Code 如下***************
Sub MySQL_1st()
Const adOpenStatic = 3
Const adLockOptimistic = 3
Const adCmdText = &H1
Set objConnection = CreateObject("ADODB.Connection")
Set objRecordset = CreateObject("ADODB.Recordset")
objConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\Users\Acer\Desktop\excel\SQL\raw\raw_data.xls;" & _
"Extended Properties=""Excel 8.0;HDR=Yes;"";"
objRecordset.Open "Select * FROM [sheet1$]", _
objConnection, adOpenStatic, adLockOptimistic, adCmdText
Do Until objRecordset.EOF
Wscript.Echo objRecordset.Fields.Item("ID")
objRecordset.MoveNext
Loop
End Sub