IT数码

Option Explicit

Dim conn, rst, fileName, strConn
Dim var, i

fileName = Environment.Value("TestDir") & "\test.xls"
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info = False;"
strConn = strConn & "Data Source = " & filename & ";Extended Properties='Excel 8.0'"

Set conn = CreateObject("ADODB.Connection")
conn.Open strConn
Set rst = CreateObject("ADODB.RecordSet")
rst.Open "select * from [Sheet1$]", conn, 1, 1

Print rst.RecordCount
i = 0
'读取Excel表格时，自动从第二行开始读起，将第一行作为Title
While Not rst.EOF
 i = i + 1
 Print "LINE " & CStr(i) & " : " & rst.Fields(0).Value & " " & rst.Fields(1).Value
 rst.MoveNext
Wend
 
rst.Close
Set rst = Nothing