当前位置：首页 > 行业动态 > 正文

如何用Excel轻松访问Access数据库？

admin
行业动态
2025-04-29
3677

Excel可通过ODBC连接或内置数据工具直接访问Access数据库，实现数据导入、查询及动态更新，利用Power Query或VBA可自动化处理跨平台数据交互，支持复杂数据分析，同时保持数据关联性，提升办公效率。

通过Excel内置工具直连Access数据库（推荐新手）

准备文件
确保Access数据库文件（.accdb或.mdb）已关闭,避免占用冲突。
启动数据导入向导
打开Excel → 点击「数据」选项卡 → 选择「获取数据」→ 从数据库 → 从Microsoft Access数据库。
选择数据库文件
在弹窗中定位Access文件路径 → 单击「打开」。
导航器界面操作
- 左侧列表勾选需要导入的表或查询
- 右侧预览数据 → 点击「加载」直接导入，或选择「转换数据」进入Power Query编辑器清洗数据。
设置自动刷新（可选）
右键已导入的数据区域 → 选择「刷新」→ 配置连接属性中的刷新频率,实现数据同步更新。

使用Power Query高级处理（适合复杂需求）

若需合并多表或清洗数据，Power Query更高效：

如何用Excel轻松访问Access数据库？第1张

启动Power Query编辑器
按方法一进入导航器后，点击「转换数据」。
关联多个表
- 在编辑器中单击「主页」→「合并查询」
- 根据主键字段匹配表关系，支持左连接、内连接等多种模式。
数据清洗
- 删除空行/重复值
- 拆分文本列
- 转换日期格式
- 使用「添加列」生成计算字段
加载到Excel
点击「关闭并加载」→ 选择「仅创建连接」或「加载到工作表」。

VBA自动化方案（适合批量操作）

Sub ImportAccessData()
    Dim conn As Object
    Set conn = CreateObject("ADODB.Connection")
    ' 配置连接字符串（根据实际路径修改）
    conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:DataSample.accdb;"
    ' 执行SQL查询
    Dim rs As Object
    Set rs = conn.Execute("SELECT * FROM Orders WHERE Year=2025")
    ' 输出到工作表
    Sheets("Data").Range("A1").CopyFromRecordset rs
    conn.Close
    Set conn = Nothing
End Sub

操作提示：

按Alt+F11打开VBA编辑器 → 插入模块粘贴代码
修改Data Source路径和SQL语句
按F5运行脚本，数据将自动填充至指定工作表

常见问题及解决

错误提示“无法找到安装程序”
需安装Microsoft Access Database Engine（注意32/64位版本兼容性）。
部分字段显示为“#Deleted”
Access表中存在损坏记录 → 使用Access菜单「数据库工具」→「压缩和修复数据库」。
刷新后数据丢失格式
右键数据区域 →「表格」→「转换为区域」解除动态表绑定。

注意事项

权限控制
若Access数据库设置密码，需在连接字符串中添加Jet OLEDB:Database Password=YourPassword。
大数据量优化
导入超过100万行时，建议先用Access筛选数据或在Power Query中启用「延迟加载」。
版本兼容性
Excel 2016及以上版本支持直接连接Access；旧版需通过「数据」→「自其他来源」→「来自Microsoft Query」手动配置ODBC。