VB连接Excel文件

2008-04-08 作者:bitsCN整理来源:中国网管联盟点评 投稿 收藏

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 网管网www.bitscn.com

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

网管网www_bitscn_com

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

网管bitscn_com

顶一下

TAGs：

相关文章列表

设计模式与VB .net代码外观模式,合成模式
VB.net中介者模式
使用VB.net实现sql数据库的备份与恢复代码
解决CSV字段数据带有双引号的问题
vb.net中用GetPrivateProfileString访问INI
vb实现IP设置
VB Shell调用后等待程序运行结束
限制文本框的输入（只输入数字）

VB连接Excel文件评论：

评论加载中…

评论:请自觉遵守互联网相关政策法规，评论不得超过250字。

验证码：注册用户

VB连接Excel文件

2008-04-08 作者:bitsCN整理 来源:中国网管联盟 点评 投稿 收藏

2008-04-08 作者:bitsCN整理来源:中国网管联盟点评投稿收藏