Access VBA中msoFileDialogFolderPicker无法选文件夹仅选文件求助

问题根源分析 #

你的代码存在两个关键错误，导致组件无法正常触发文件夹选择模式：

• 未指定对象前缀的InitialFileName：代码中InitialFileName = "..."没有添加.前缀，无法将路径绑定到FileDialog对象，导致初始路径失效，组件可能默认 fallback 到文件选择模式。
• 路径乱码：路径中的=??????-????? ?????=是乱码，无法被系统识别，进一步干扰了组件的正常初始化。
• 额外问题：超链接字段无需用#包裹路径，这会导致超链接无法正常解析。

修正后的代码 #

Private Sub micHyperlink_Click()
    Const msoFileDialogFolderPicker As Long = 3
    Dim fd As Object
    Set fd = Application.FileDialog(msoFileDialogFolderPicker)
    
    With fd
        ' 修复：添加.前缀绑定到FileDialog对象，替换乱码为实际正确的文件夹名称
        .InitialFileName = "T:\[实际文件夹名称]\Current year\MOCVD\Data Collection\Characterization tool\Microscope"
        .Title = "Select Attachment Link"
        
        If .Show = -1 Then
            ' 超链接字段直接存储路径，无需#包裹
            Me![microscope_Images] = .SelectedItems(1)
        End If
    End With
    
    Set fd = Nothing
End Sub

额外排查建议 #

如果修正后仍无法正常工作，尝试以下操作：

• 检查路径有效性：确保目标文件夹存在，且Access有该路径的读写权限。
• 切换早绑定模式：
  1. 打开VBA编辑器，点击工具→引用
  2. 勾选Microsoft Office xx.x Object Library（xx.x对应你的Office版本，如16.0对应Office 2016+）
  3. 修改变量声明为Dim fd As FileDialog，无需手动定义msoFileDialogFolderPicker常量

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