如何在Excel中用VBA浏览选择Access文件作为连接字符串的数据源创建数据透视表

核心逻辑 #

替换原连接字符串中硬编码的Data Source=C:\Users\xxx.accdb固定路径，将其替换为用户通过文件选择器选中的文件路径即可。

具体实现步骤（以最常见的Excel VBA开发场景为例） #

• 第一步：调用文件选择对话框，限制仅可选Access格式文件

Dim fileDialog As FileDialog
Dim accessPath As String

Set fileDialog = Application.FileDialog(msoFileDialogFilePicker)
With fileDialog
    .Title = "选择Access数据源文件"
    .Filters.Clear
    ' 筛选Access支持的两种格式
    .Filters.Add "Access数据库", "*.accdb;*.mdb", 1
    .AllowMultiSelect = False
    ' 判断用户是否确认选择文件
    If .Show <> -1 Then
        MsgBox "未选择数据源，操作已取消"
        Exit Sub
    End If
    accessPath = .SelectedItems(1)
End With

• 第二步：动态拼接连接字符串，替换固定路径

cnString = "OLEDB;Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;Data Source=" & accessPath & ";Mode=Read;Extended Properties="""";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Engine Type=6;Jet OLEDB:Database Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="""";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False;Jet OLEDB:Support Complex Data=False;Jet OLEDB:Bypass UserInfo Validation=False;Jet OLEDB:Limited DB Caching=False;Jet OLEDB:Bypass ChoiceField Validation=False"

其他说明 #

• 若使用其他开发环境（如C# WinForm、Python等），仅需替换对应环境的文件选择器实现代码，连接字符串拼接逻辑完全一致
• 若Access数据库设置了访问密码，只需修改连接字符串中Jet OLEDB:New Database Password参数，填入对应密码即可

内容的提问来源于stack exchange，提问作者Tim Stevens