Application.FileDialog调用失败？MS Access引用相关问题求助

针对你遇到的_application对象的filedialog方法执行失败错误，可尝试以下几种解决方案：

1. 替换常量为对应数值 #

虽然已引用Office对象库，但部分场景下msoFileDialogSave常量可能无法被正确识别，直接使用其对应数值2替代：

Dim fd As FileDialog
Set fd = Application.FileDialog(2) ' 2对应msoFileDialogSave
With fd
    ' 你的后续代码示例
    .AllowMultiSelect = False
    .Title = "选择保存路径"
    If .Show = -1 Then
        Debug.Print .SelectedItems(1)
    End If
End With
Set fd = Nothing

2. 检查Access信任中心设置 #

Access的安全设置可能限制了文件对话框的使用：

• 打开Access选项 → 信任中心 → 信任中心设置 → 宏设置
• 确保选择"启用所有宏"（仅在信任当前数据库的前提下），同时勾选"信任对VBA工程对象模型的访问"

3. 修复或重新设置引用 #

即使已勾选Office对象库，也可能存在引用损坏或冲突：

• 打开VBA编辑器 → 工具 → 引用
• 取消勾选Microsoft Office 16.0 Object Library，点击确定后重新打开引用窗口，再次勾选该库
• 如果问题依旧，尝试修复Office安装：打开控制面板 → 程序和功能 → 找到Microsoft Office → 右键选择"更改" → 选择"快速修复"或"联机修复"

4. 改用CreateObject创建对话框 #

若上述方法无效，可绕过内置引用，直接创建FileDialog对象：

Dim fd As Object
Set fd = CreateObject("Office.FileDialog.2") ' 2对应保存对话框
With fd
    .AllowMultiSelect = False
    .Title = "选择保存路径"
    If .Show = -1 Then
        Debug.Print .SelectedItems(1)
    End If
End With
Set fd = Nothing

内容的提问来源于stack exchange，提问作者Kingsley Obeng