[已解決] 少了一條記錄??
下載安裝了 Office2003, 用 ADO 測試 Excel 表的時候, 發現不能讀取第一條記錄, 望解決:xls 文件 (存放在 C:\Book1.xls) 中 Sheet1 的內容如下:
row(0,0) | row(0,1) |
row(1,0) | row(1,1) |
row(2,0) | row(2,2) |
代碼: (在 vbs 文件中測試的)
Dim hConn, hCmd, hRds
Set hConn = CreateObject("ADODB.Connection")
Set hCmd = CreateObject("ADODB.Command")
hConn.Open "Driver={Microsoft Excel Driver (*.xls);DBQ=C:\Book1.xls"
Set hCmd.ActiveConnection = hConn
hCmd.CommandText = "SELECT * FROM [Sheet1$]"
Set hRds = hCmd.Execute
Do While Not hRds.EOF
MsgBox hRds.Files(0).Value & ", " & hRds.Fields(1).Value
hRds.MoveNext
Loop
hConn.Close
Set hCmd = Nothing
Set hConn = Nothing
MsgBox "Done"
===============
運行結果只顯示了第二行和第三行的結果, 第一行的記錄不包含在 hRds 結果集裏...
後來用
hCmd.CommandText = "SELECT Count(*) FROM [Sheet1$]"
Set hRds = hCmd.Execute
MsgBox hRds(0)
得到的結果爲 2, 不知道怎麽解決.....
[此贴子已经被作者于2006-7-21 1:29:33编辑过]