FileDialog.SelectedItems 属性

直接例子：

Sub FileDir()

    With Application.FileDialog(msoFileDialogFilePicker)  '选择文件夹

    .AllowMultiSelect = True  '允许选择多个文件

        If .Show Then

            [A1] = .SelectedItems(2)  '选择的文件路径赋值给活动单元格A1

        Else

            Exit Sub  '如果没有选择文件且确定，则退出程序

        End If

    End With

End Sub

加红处的SelectedItems(2)即为filedialog的属性，括号内的数字2为获取选定文件列表第2个文件的路径，运行到此处的时候会弹出一下窗口

选择多个文件后，点击确定按钮，查看A1单元格的内容为选择的文件里面的第二个文件的路径，如下图。

当不可以多选时，SelectedItems()括号内的数字只能为1！！！