在msoFileDialogFilePicker之后从SelectedItems创建数组

Sub CreateArrayFromSelectedItems()
    Dim fileDialog As FileDialog
    Dim selectedItems As Variant
    Dim filePathArray() As String
    Dim i As Integer
    
    ' 创建文件对话框
    Set fileDialog = Application.FileDialog(msoFileDialogFilePicker)
    
    ' 允许选择多个文件
    fileDialog.AllowMultiSelect = True
    
    ' 显示文件对话框
    If fileDialog.Show = -1 Then
        ' 获取所选文件路径
        selectedItems = fileDialog.SelectedItems
        
        ' 创建数组并存储文件路径
        ReDim filePathArray(1 To fileDialog.SelectedItems.Count)
        i = 1
        For Each selectedItem In selectedItems
            filePathArray(i) = selectedItem
            i = i + 1
        Next selectedItem
        
        ' 打印数组中的文件路径
        For i = 1 To UBound(filePathArray)
            Debug.Print filePathArray(i)
        Next i
    End If
End Sub