【Excel VBA】FileDialog 用法之 打开对话框获得文件夹路径

盗梦

【Excel VBA】FileDialog 用法之 打开对话框获得文件夹路径

FileDialog 可以根据后面的参数，打开通用对话框

1. 
   
2. Dim strPath As String
   
3. Dim MyFileDialog As FileDialog
   
4. Set MyFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
   
5. 
   
6.     If MyFileDialog.Show = -1 Then
   
7.             '使用循环显示选取文件的路径和名称
   
8.         For Each vrtSelectedItem In MyFileDialog.SelectedItems
   
9.             strPath = vrtSelectedItem
   
10.         Next
    
11.     End If
    
12. 
    
13. MsgBox strPath

复制代码

这段代码，可以打开一个对话框，选择文件夹，获得选择的文件夹的路径