VB连接Excel文件

菜单 [工程]-[引用] Microsoft ActiveX Data Objects 2.x (找一个高版本的)

Private   Sub  Command2_Click()
Dim  conn  As   New  ADODB.Connection
Dim  rs  As   New  ADODB.Recordset

conn.Open  " Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:a.xls;Extended Properties='Excel 8.0;HDR=YES;IMEX=1' "
rs.Open  " select * from [sheet1$] " , conn, adOpenForwardOnly, adLockOptimistic

Do   While   Not  rs.EOF
     Print  rs( 0 )
    rs.MoveNext
Loop
rs.Close


End Sub

HDR和IMEX一定要配合使用，HDR表示要把第一行作为数据还是作为列名，作为数据用hdr=no,作为列名用hdr=yes；通过Imex=1来把混合型作为文本型读取，避免null值。