Excel VBA多选文件夹问题：AllowMultiSelect=True无效及路径存储需求

一、解决无法多选文件夹的问题 #

你设置AllowMultiSelect = True是正确的，但文件夹选择器的多选需要配合快捷键操作：

• 按住Ctrl键点击可选择不连续的多个文件夹
• 按住Shift键点击可选择连续范围内的多个文件夹

如果操作正确仍无法多选，可检查是否有Excel加载项干扰，或重启Excel重试。

二、将选中路径存入数组及多个变量 #

以下是修改后的代码，实现路径存入数组，同时支持将固定数量的路径存入单独变量（示例以最多3个变量为例）：

Sub SelectMultipleFolders()
    Dim selectedFolders As FileDialog
    Dim folderPaths() As String ' 存储路径的数组
    Dim i As Integer
    ' 按需定义固定数量的变量
    Dim path1 As String, path2 As String, path3 As String

    Set selectedFolders = Application.FileDialog(msoFileDialogFolderPicker)
    selectedFolders.AllowMultiSelect = True

    If selectedFolders.Show = -1 Then
        ' 根据选中数量动态调整数组大小
        ReDim folderPaths(1 To selectedFolders.SelectedItems.Count)
        
        ' 循环将路径存入数组和对应变量
        For i = 1 To selectedFolders.SelectedItems.Count
            folderPaths(i) = selectedFolders.SelectedItems(i)
            Select Case i
                Case 1: path1 = folderPaths(i)
                Case 2: path2 = folderPaths(i)
                Case 3: path3 = folderPaths(i)
                ' 可继续添加更多Case对应更多变量
            End Select
            MsgBox "选中的文件夹" & i & "：" & folderPaths(i)
        Next i
        
        ' 示例：输出变量中的路径
        If path1 <> "" Then MsgBox "变量1存储的路径：" & path1
        If path2 <> "" Then MsgBox "变量2存储的路径：" & path2
        If path3 <> "" Then MsgBox "变量3存储的路径：" & path3
    Else
        MsgBox "未选择任何文件夹。"
    End If
    
    Set selectedFolders = Nothing ' 释放对象
End Sub

代码说明： #

1. 声明动态数组folderPaths()，通过ReDim根据选中文件夹数量调整数组大小
2. 循环遍历选中项，将路径同时存入数组和对应变量
3. 使用Select Case匹配索引，将前N个路径存入单独变量（可按需扩展变量数量）
4. 最后释放FileDialog对象，避免内存占用

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