【VB6|第23期】原来Jet.OLEDB也可以读取新版.xlsx的Excel文件

日期：2023年8月11日
作者：Commas
签名：(ง •_•)ง 积跬步以致千里,积小流以成江海……
注释：如果您觉得有所帮助，帮忙点个赞，也可以关注我，我们一起成长；如果有不对的地方，还望各位大佬不吝赐教，谢谢^ - ^
1.01³⁶⁵ = 37.7834；0.99³⁶⁵ = 0.0255
1.02³⁶⁵ = 1377.4083；0.98³⁶⁵ = 0.0006

---

---

---

一、前言

上期文章《【VB6|第22期】用SQL的方式读取Excel数据》 介绍了通过 第三方库（Jet.OLEDB） 读取 Excel 数据，读取了旧版 .xls 格式的 Excel 文件，对于新版我们留下了一个伏笔。

或许有人会建议考虑使用 Microsoft ACE OLEDB 提供程序来读取新版 .xlsx 格式的 Excel 文件。但是安装额外的程序，然后又因为 Excel 程序位数与额外程序位数等等兼容性问题，再调试来调试去的，显然对于用户来说不太友好，而且个人感觉很麻烦，所以本文不对此话题进行展开讨论。

本文主要讲解如何用 Jet.OLEDB 来读取新版 .xlsx 格式的 Excel 文件。话不多说，直接上教程。

二、使用要求

• 安装了 MS Office 软件
• 安装了最新版 WSP Office 软件

满足上述其中一条，我们就就有了实现 Jet.OLEDB 读取新版 .xlsx 格式的 Excel 文件 的基础。

三、Jet.OLEDB读取旧版.xls格式的Excel

示例代码：

Option Explicit
Private Sub CmdJet_Click()
On Error Resume Next
'函数说明：使用第三方库（Jet.OLEDB）读取Excel数据(.xls格式)
'创建作者：Commas
'创建时间：2023-08-06
'修改时间：
'------传参说明------
'------传参说明------'Excel文件的路径Dim sXLPath As String'sXLPath = App.Path & "\example.xlsx"sXLPath = App.Path & "\example.xls"' NO1：前期绑定（静态绑定）' 需要添加对Microsoft ActiveX Data Objects xx.x Library的引用（版本号根据ADO版本变化）Dim CN As New ADODB.ConnectionDim RS As New ADODB.Recordset' NO2：后期绑定（动态绑定）
'''    Dim CN As Object 'New ADODB.Connection
'''    Dim RS As Object 'New ADODB.Recordset
'''    Set CN = CreateObject("adodb.connection")
'''    Set RS = CreateObject("adodb.recordset")Dim CNStr As StringDim sqlQuery As String' 连接到Excel文件CNStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source={path};Extended Properties=""Excel 8.0;HDR=Yes;"";"'CNStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source={path};Extended Properties=""Excel 12.0;HDR=Yes;"";"CNStr = Replace(CNStr, "{path}", sXLPath)CN.Open CNStr' 构造SQL查询语句sqlQuery = "SELECT * FROM [Sheet1$A1:C5];"' 执行查询并将结果保存到记录集（Recordset）RS.Open sqlQuery, CN' 将数据读取到数组中Dim aryData() As VariantaryData = RS.GetRowsRS.CloseCN.Close'输出,获取二维数组的行数和列数Dim rows As Long, cols As Longrows = UBound(aryData, 1) + 1  ' 行数cols = UBound(aryData, 2) + 1 ' 列数' 遍历二维数组Dim i As Long, j As LongFor i = 0 To rows - 1For j = 0 To cols - 1' 访问二维数组中的元素Debug.Print "aryData(" & i & ", " & j & ") = " & aryData(i, j)Next jNext i
End Sub

返回结果：

aryData(0, 0) = 张三
aryData(0, 1) = 李小龙
aryData(0, 2) = 王五
aryData(0, 3) = 赵六
aryData(1, 0) = 技术部
aryData(1, 1) = 技术部
aryData(1, 2) = 市场部
aryData(1, 3) = 销售部
aryData(2, 0) = 18
aryData(2, 1) = 19
aryData(2, 2) = 20
aryData(2, 3) = 21

四、Jet.OLEDB读取新版.xlsx格式的Excel

实现的操作流程很简单，我们只需要在 三、Jet.OLEDB读取旧版.xls格式的Excel 的基础上，加上一个COM组件打开Excel就可以了。COM组件打开Excel 之前文章详细讨论过，这里就不再赘述，不清楚的小伙伴可以点击《【VB6|第19期】vb6通过COM组件操作Excel》查看，了解的小伙伴可以直接逃过看下文。

（4-1）前期绑定（静态绑定）

需要在工程引入中添加 Microsoft Excel xx.0 Object Library 的引用。

Dim XlApp As New Excel.Application
Dim XlBook As New Excel.WorkbookXlApp.Visible = False
Set XlBook = XlApp.Workbooks.Open(sXLPath)'嵌套 三、Jet.OLEDB读取旧版.xls格式的Excel 的代码
'实现SQL读取.xlsx和.xls格式的ExcelXlBook.Close
XlApp.Quit

（4-2） 后期绑定（动态绑定）

Dim XlApp As Object 'New Excel.Application
Dim XlBook As Object 'New Excel.WorkbookSet XlApp = VBA.CreateObject("Excel.Application")
XlApp.Visible = False
Set XlBook = XlApp.Workbooks.Open(sXLPath)'嵌套 三、Jet.OLEDB读取旧版.xls格式的Excel 的代码
'实现SQL读取.xlsx和.xls格式的ExcelXlBook.Close
XlApp.Quit

（4-3）完整示例

示例代码：

Private Sub CmdJetXLSX_Click()
On Error Resume Next
'函数说明：使用第三方库（Jet.OLEDB）读取Excel数据(.xls格式和.xlsx格式)
'创建作者：Commas
'创建时间：2023-08-08
'修改时间：
'------传参说明------
'------传参说明------'Excel文件的路径Dim sXLPath As StringsXLPath = App.Path & "\example.xlsx"'sXLPath = App.Path & "\example.xls"'======加上这个，就可以读取.xlsx格式的Excel文件啦======' NO1：前期绑定（静态绑定）
'''    Dim XlApp As New Excel.Application
'''    Dim XlBook As New Excel.Workbook' NO2：后期绑定（动态绑定）Dim XlApp As Object 'New Excel.ApplicationDim XlBook As Object 'New Excel.WorkbookSet XlApp = VBA.CreateObject("Excel.Application")XlApp.Visible = FalseSet XlBook = XlApp.Workbooks.Open(sXLPath)'======加上这个，就可以读取.xlsx格式的Excel文件啦======' NO1：前期绑定（静态绑定）' 需要添加对Microsoft ActiveX Data Objects xx.x Library的引用（版本号根据ADO版本变化）Dim CN As New ADODB.ConnectionDim RS As New ADODB.Recordset' NO2：后期绑定（动态绑定）
'''    Dim CN As Object 'New ADODB.Connection
'''    Dim RS As Object 'New ADODB.Recordset
'''    Set CN = CreateObject("adodb.connection")
'''    Set RS = CreateObject("adodb.recordset")Dim CNStr As StringDim sqlQuery As String' 连接到Excel文件CNStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source={path};Extended Properties=""Excel 8.0;HDR=Yes;"";"'CNStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source={path};Extended Properties=""Excel 12.0;HDR=Yes;"";"CNStr = Replace(CNStr, "{path}", sXLPath)CN.Open CNStr' 构造SQL查询语句sqlQuery = "SELECT * FROM [Sheet1$A1:C5];"' 执行查询并将结果保存到记录集（Recordset）RS.Open sqlQuery, CN' 将数据读取到数组中Dim aryData() As VariantaryData = RS.GetRowsRS.CloseCN.Close'======加上这个，就可以读取.xlsx格式的Excel文件啦======XlBook.CloseXlApp.Quit'======加上这个，就可以读取.xlsx格式的Excel文件啦======'输出,获取二维数组的行数和列数Dim rows As Long, cols As Longrows = UBound(aryData, 1) + 1  ' 行数cols = UBound(aryData, 2) + 1 ' 列数' 遍历二维数组Dim i As Long, j As LongFor i = 0 To rows - 1For j = 0 To cols - 1' 访问二维数组中的元素Debug.Print "aryData(" & i & ", " & j & ") = " & aryData(i, j)Next jNext i
End Sub

返回结果：

aryData(0, 0) = 张三
aryData(0, 1) = 李小龙
aryData(0, 2) = 王五
aryData(0, 3) = 赵六
aryData(1, 0) = 技术部
aryData(1, 1) = 技术部
aryData(1, 2) = 市场部
aryData(1, 3) = 销售部
aryData(2, 0) = 18
aryData(2, 1) = 19
aryData(2, 2) = 20
aryData(2, 3) = 21

五、结束语

经测试，用户只要安装 MS Office 或者 新版的 WPS Office，就可以用Jet.OLEDB 正常读取新版 .xlsx 的Excel 文件的数据啦。
本文也只是浅谈了一下使用教程，对原理感兴趣的小伙伴也可以继续研究微软的相关知识，或者大佬们也可以留言，为我们大家解惑。
编写教程不易，希望各位小伙伴可以给个赞，让更多的小伙伴可以看到，参与话题讨论中来。

---

参考文章：

• 《Microsoft OLE DB Provider for Microsoft Jet》

---

版权声明：本文为博主原创文章，如需转载，请给出：
原文链接：https://blog.csdn.net/qq_35844043/article/details/132131301