VBA Folder Picker失效：下标越界错误问题求助

问题根源 #

你的代码存在两个核心问题：

1. 未正确处理用户取消对话框的场景：虽有SelectedItems.Count判断，但如果FileDialog对象初始化失败（比如指定的InitialFileName路径不存在），SelectedItems可能触发异常。
2. Show方法的返回值判断被闲置：原本应在用户点击「确定」后才读取选中项，当前逻辑会在用户取消后仍执行后续判断，增加出错风险。

修复后的代码 #

Public Function GetFolder() As String
    Dim objFileDialog As Office.FileDialog
    ' 初始化对话框并捕获可能的加载异常
    On Error Resume Next
    Set objFileDialog = Application.FileDialog(MsoFileDialogType.msoFileDialogFolderPicker)
    On Error GoTo 0
    
    If Not objFileDialog Is Nothing Then
        With objFileDialog
            .InitialFileName = "G:\"
            .AllowMultiSelect = True
            .ButtonName = "Folder Picker"
            .Title = "Folder Picker"
            
            ' 仅在用户点击确定后处理选中项
            If .Show = -1 Then
                If .SelectedItems.Count > 0 Then
                    GetFolder = .SelectedItems(1)
                End If
            End If
        End With
    Else
        ' 对话框初始化失败时返回空字符串
        GetFolder = ""
    End If
End Function

关键修复点 #

• 增加对话框对象有效性检查：防止因Office组件加载异常导致objFileDialog为Nothing，避免访问SelectedItems时触发错误。
• 嵌套选中项判断逻辑：将SelectedItems的读取操作放在.Show = -1分支内，仅在用户明确选择文件夹并确认后执行，彻底规避取消操作后的无效访问。
• 明确函数返回类型：为函数声明As String，避免隐性类型不匹配问题。
• 临时错误捕获：初始化对话框时启用临时错误捕获，避免因指定路径（如G盘未挂载）不存在导致初始化失败直接抛出错误。

额外优化建议 #

• 若无需多选文件夹，可设置.AllowMultiSelect = False，此时SelectedItems.Count在用户选择时始终为1，简化逻辑。
• 若G:\路径可能不存在，可替换为系统默认路径，比如Environ("USERPROFILE")（用户文档目录）。

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