ExcelVBA Tips(その他)

HOME>TOP>その他

フォルダ選択ダイアログを表示するには？

キーワード>>CreateObject

Point ：APIを使わずにフォルダ選択ダイアログを表示させたい？

Sub Test()
    Dim ff As Object

    Set ff = CreateObject("Shell.Application"). _
      BrowseForFolder(0, "フォルダを選択してください", 0, "c:\\")

    If Not ff Is Nothing Then
        MsgBox ff.Items.Item.Path
      '選択したフォルダ名を表示
    End If

End Sub

資料提供：tllspさんの拾得物横領ごめんちゃいＴｉｐｓ