VB连接Excel文件

来源：pcdog 作者：佚名 2008-04-08 出处：pcdog.com

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值。

上一篇：设置Excel 2007数据精度保障准确性
下一篇：常用办公软件 Excel技巧整理讲解