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！！！