ダイアログを表示して、フォルダパスを取得する【パーツ化】【ExcelVBA】

ダイアログを表示して、フォルダパスを取得する

VBAマクロを実行する際、フォルダを選択して処理する事も多いかと思います。
当方へご依頼頂いた際、ユーザー様の要望に合わせて、ダイアログで選択する場合や、
フォルダパスをセル上に直打ちするケースがあります。

今回はダイアログで選択する処理を、パーツ化しました。

ダイアログを表示して、フォルダパスを取得するサンプルコード

'■ダイアログからフォルダパスを取得する
Public Function Call_FolderSelect() As String
    With Application.FileDialog(msoFileDialogFolderPicker)
        If .Show = True Then
            Call_FolderSelect = .SelectedItems(1)
        Else
            End
        End If
    End With
End Function

使い方

実際の使い方は以下です。

Public Sub sample()
    Dim str As String
    str = Call_FolderSelect
End Sub

注意点

• 取得したパスは単独のフォルダを想定しています(複数フォルダではありません)

関連記事

• ファイルダイアログを表示して、ファイル名を取得する
• ブックを閉じる際の確認ダイアログを表示させない(無視する)
• VBAでIE操作「ファイルダイアログからアップロードする」
• マクロ実行前に確認メッセージを表示する【パーツ化】
• フォルダ内ファイル数を取得する をパーツ化する
• フォルダ内のファイルを全て削除するマクロ