vb6.0 excel连接的创建，内容的读取

最新推荐文章于 2023-08-07 13:16:35 发布

czf2505

最新推荐文章于 2023-08-07 13:16:35 发布

阅读量2.1k

点赞数

分类专栏： vb6.0 文章标签： vb6.0 excel数据导入

本文链接：https://blog.youkuaiyun.com/czf2505/article/details/14121817

版权

这篇博客介绍了如何使用VB6.0创建Excel连接并读取数据。首先，通过设置连接字符串与ADODB.Connection对象实现Excel文件的连接。然后，通过Recordset对象打开数据源，执行SQL查询从[Items$]工作表中选择所有列，并逐行读取数据。内容详细展示了如何处理数据并进行遍历。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

一连接的创建：

Public Sub OpenXLSConn(strFile As String)
Const ProcName = "OpenXLSConn"
On Error GoTo ErrHandler
Dim strConn As String
1           strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strFile & ";Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"""
2           Set objXLSConn = New ADODB.Connection
3           objXLSConn.Open strConn
Exit Sub
ErrHandler:
    ErrLog Erl, Err.Number, Err.Description, ProcName, True, True
End Sub

二内容的读取：

CommonDialog1.ShowOpen
                strFilePath = CommonDialog1.FileName
7               strPKLineData = ""
8               strFillLine = ""
9               Set objXLSRS = New ADODB.Recordset
'10              CreateSQLConn
11              OpenXLSConn strFilePath

最低0.47元/天解锁文章