用ADO打開Excel工作表 ado connection open excel 

                  On Error Resume Next

Const adOpenStatic = 3
Const adLockOptimistic = 3
Const adCmdText = &H0001

Set objConnection = CreateObject("ADODB.Connection")
Set objRecordSet = CreateObject("ADODB.Recordset")

objConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    "Data Source=C:\Scripts\Test.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("Name"), _
        objRecordset.Fields.Item("Number")
    objRecordset.MoveNext
Loop

'https://technet.microsoft.com/zh-tw/library/ee692882.aspx
'http://frankiestudy.blogspot.tw/2011/11/microsoftjetoledb40.html
'來源是Microsoft.Jet.OLEDB.4.0或Microsoft.ACE.OLEDB.12.0
View Oscar's Profile