当前位置：首页 > web >正文

VBA批量读取access数据库(.mdb)

web 2025/7/5 16:19:32

源码如下:

' ================================================
' 过程名称：LoadAllMDBData
' 功能描述：批量加载指定文件夹中的Access数据库(.mdb)文件数据到Excel工作表
' 主要功能：
'   1. 自动遍历"原始数据"子文件夹下的.mdb文件（最多20个）
'   2. 从每个文件的results表中提取CellHalf,Class,Eta,Uoc,AOI_1_R字段
'   3. 将数据合并到"原始数据"工作表中
' 输入参数：无
' 返回值：无
' 调用示例：直接运行LoadAllMDBData过程
' 依赖条件：
'   1. 需要启用Microsoft ActiveX Data Objects引用
'   2. 需要安装ACE OLEDB 12.0数据库驱动
' 作者：xiangbing
' 创建日期：2025-04-23
' 修改记录：
'   [日期] [修改人] [修改内容]
' ================================================
' 技术要点：
'   1. 使用ADODB.Connection连接Access数据库
'   2. 通过CopyFromRecordset方法实现高效数据导入
'   3. Dir函数实现文件遍历
'   4. 自动定位最后空行追加数据
' ================================================
Sub LoadAllMDBData()' 声明变量Dim ws As Worksheet        ' 工作表对象Dim folderPath As String  ' 文件夹路径Dim fileName As String    ' 文件名Dim fileCount As Integer  ' 文件计数器Dim conn As ADODB.Connection  ' ADO数据库连接对象Dim rs As ADODB.Recordset     ' ADO记录集对象Dim lastRow As Long       ' 工作表最后一行Dim i As Integer          ' 循环计数器' 设置对"原始数据"工作表的引用Set ws = ThisWorkbook.Sheets("原始数据")' 构建文件夹路径（当前工作簿所在路径下的"原始数据"子文件夹）folderPath = ThisWorkbook.Path & "\原始数据\"' 初始化文件计数器为0fileCount = 0' 创建新的ADO连接和记录集对象实例Set conn = New ADODB.ConnectionSet rs = New ADODB.Recordset' 获取文件夹中第一个.mdb文件fileName = Dir(folderPath & "*.mdb")' 循环处理文件夹中的.mdb文件Do While fileName <> ""' 如果已处理20个文件则退出循环If fileCount >= 20 Then Exit Do' 打开数据库连接（使用ACE OLEDB 12.0提供程序）conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _"Data Source=" & folderPath & fileName & ";"' 执行SQL查询，从results表中获取指定字段rs.Open "SELECT CellHalf,Class,Eta,Uoc,AOI_1_R FROM results", conn' 找到工作表中A列最后一个非空单元格的下一行lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row + 1' 将记录集中的数据复制到工作表中（从lastRow行开始）ws.Cells(lastRow, 1).CopyFromRecordset rs' 关闭记录集和数据库连接rs.Closeconn.Close' 文件计数器加1fileCount = fileCount + 1' 获取下一个.mdb文件名fileName = Dir()Loop' 释放对象内存Set rs = NothingSet conn = Nothing' 显示完成消息框MsgBox "已加载 " & fileCount & " 个文件的数据。", vbInformation
End Sub

代码功能说明：