VBA ChooseFolder

 

 

Public Function ChooseFolder() As String 
    '定義並新建一個對話框對象 
    Dim dlgOpen As FileDialog 
    Set dlgOpen = Application.FileDialog(msoFileDialogFolderPicker) 
    '如果當前沒有對話框顯示，就讓他彈出對話框 
    If dlgOpen.Show = -1 Then ChooseFolder = dlgOpen.SelectedItems(1)
    MsgBox (ChooseFolder)
    Set dlgOpen = Nothing
    End Function