您现在的位置是：首页-> 米鼠技术 ->VB连接Excel文件

VB连接Excel文件


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

 


热点文章
最新项目
相关文章 最新文章