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