怎样顺序读取Excel中某列的值？

Question

怎样顺序读取Excel中某列的值？

Answer 1

当作数据库表来读：Dim cn As ADODB.Connection, rs As ADODB.RecordsetSet cn = New ADODB.Connection
cn.Open "provider=microsoft.jet.oledb.4.0;data source=D:\Documents and Settings\Administrator\My Documents\2007技术支持统计.xls;Extended Properties=""Excel 8.0;HDR=No;IMEX=1"""
Set rs = cn.Execute("select * from [sheet1$]")Do Until rs.EOF
    Debug.Print rs.Fields(0) & ""
    rs.MoveNext
Looprs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing

Answer 2

dim i as long
for i=1 to 65536
     debug.print i
next i