Microsoft 365 Access环境下CommonDialog运行异常原因咨询

1. CommonDialog ActiveX控件注册状态差异 #

• CommonDialog是Access 2003时期的旧ActiveX控件，对应系统文件为comdlg32.ocx，Win10默认没有预装注册该控件，只有手动完成过注册的设备才能正常调用。
• 注册位数不匹配：如果你的Office是32位版本，需要将comdlg32.ocx放到C:\Windows\SysWOW64目录，用管理员权限执行regsvr32 comdlg32.ocx完成注册；64位Office则需要放到C:\Windows\System32目录执行注册，位数不匹配会直接触发Object doesn't support this property or method报错。

2. Access VBA引用配置差异 #

• 正常运行的设备，VBA引用列表中会存在Microsoft Common Dialog Control 6.0的有效引用，报错设备的该引用要么丢失，要么被标记为「MISSING」状态，可通过Alt+F11打开VBA编辑器，进入「工具」-「引用」查看配置。
• 不同设备如果安装过多个版本的Common Dialog控件，引用指向的控件路径不匹配，也会触发属性/方法不支持错误。

3. Office安装版本差异 #

• 部分设备的Microsoft 365为即点即用版本，默认没有集成旧ActiveX控件的兼容适配组件，而批量许可版的365默认带旧控件兼容层，会出现运行表现差异。
• 32/64位Office差异：官方版Common Dialog 6.0只有32位版本，如果部分设备安装的是64位Microsoft 365，未安装第三方64位CommonDialog替代包的情况下，调用会直接失败。

4. 系统安全配置差异 #

• 报错设备的Access宏安全级别设置过高，禁用了所有ActiveX控件的调用。
• 设备的安全软件（Windows Defender、第三方杀毒软件）将comdlg32.ocx标记为风险组件，拦截了VBA对该控件的调用。

如果不想逐个设备配置控件，可直接用Office内置的FileDialog对象替代CommonDialog实现文件选择功能，无需额外注册控件，全版本兼容性更好，示例代码如下：

Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFilePicker)
With fd
    .AllowMultiSelect = False
    .Filters.Add "所有文件", "*.*"
    If .Show = -1 Then
        ' 选中文件后的业务逻辑，这里示例输出路径
        Debug.Print "选中文件路径：" & .SelectedItems(1)
    End If
End With
Set fd = Nothing

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