合并多个Application.GetOpenFilename语句的结果

Dim fileDialog As FileDialog
Dim selectedFiles As Variant
Dim allFiles As Variant

Set fileDialog = Application.FileDialog(msoFileDialogOpen)
fileDialog.AllowMultiSelect = True

' 第一个Application.GetOpenFilename语句
fileDialog.Show
selectedFiles = fileDialog.SelectedItems

' 后续的Application.GetOpenFilename语句
Do While fileDialog.Show <> -1
    selectedFiles = Union(selectedFiles, fileDialog.SelectedItems)
Loop

' 将所有选择的文件路径存储在allFiles数组中
ReDim allFiles(1 To selectedFiles.Count)
For i = 1 To selectedFiles.Count
    allFiles(i) = selectedFiles(i)
Next i

' 输出所有文件路径
For i = 1 To UBound(allFiles)
    Debug.Print allFiles(i)
Next i