〔VBA〕FileDialog-開啟視窗選取資料夾--v036

【開啟視窗選取資料夾顯示路徑】

    With Application.FileDialog(msoFileDialogFolderPicker) '開啟選取檔案視窗
      .InitialFileName = ActiveWorkbook.Path & "\" '預設為目前檔案所在位置
      .AllowMultiSelect = False '只能選取單一資料夾
      If .Show <> 0 Then '如果有選到資料夾
           MsgBox .SelectedItems(1) '顯示資料夾路徑
      End If
    End With

相關課程：


章老師的電腦小講堂 https://www.facebook.com/ScenicSchool/

※※ 本區做為經常使用之程式碼複製區，提問請至小講堂唷 ※※