直接例子:
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!!!
有话要说...