読者です 読者をやめる 読者になる 読者になる

【ExcelVBA】フォルダ選択ダイアログ

Shell.Application.BrowseForFolder()

Dim Shell As Object, pathInfo As String
    Set Shell = CreateObject("Shell.Application")
    Set pathInfo = Shell.BrowseForFolder(&O0, "フォルダを選択", &H1 + &H10, "C:\")
    If Not pathInfo Is Nothing Then
MsgBox pathInfo.Items.Item.Path

 ただし、この方法だと最初に選択しているディレクトリが設定できない?

 

Win32API

参考:

Office TANAKA - Excel VBA Tips[フォルダを選択するダイアログ]