VB连接Excel文件

开发者在线 Builder.com.cn 更新时间:2008-06-11作者:佚名 来源:中国IT实验室

本文关键词: 文件 连接 vb vb.net

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

用户评论

  • 用户名
  • 评论内容