VBA:フォルダを選択するためのダイアログを作成する

2021年5月18日
2021年5月20日
VBA
FileDialog, msoFileDialogFolderPicker, VBA, フォルダ, 選択

VBA

1 FileDialogオブジェクトを利用したフォルダ選択ダイアログを作成する
- 1.1 関数の説明
- 1.2 使用例

FileDialogオブジェクトを利用したフォルダ選択ダイアログを作成する

FileDialogを利用して、初期フォルダを設定したフォルダ選択ダイアログを作成します。

関数にしていますので、そのままコピーして利用することができます。

Function フォルダを選択する(strFolder As String)

    If Right(strFolder, 1) <> "\" Then
        strFolder = strFolder & "\"
    End If
    With Application.FileDialog(msoFileDialogFolderPicker)
        .InitialFileName = strFolder    ' フォルダの初期値を設定
        .Title = "フォルダを選択"
        If .Show = True Then
            フォルダを選択する = .SelectedItems(1)
        End If
    End With

End Function

Function フォルダを選択する(strFolder As String)

If Right(strFolder, 1) <> "\" Then

strFolder = strFolder & "\"

End If

With Application.FileDialog(msoFileDialogFolderPicker)

.InitialFileName = strFolder ' フォルダの初期値を設定

.Title = "フォルダを選択"

If .Show = True Then

フォルダを選択する = .SelectedItems(1)

End If

End With

End Function

関数の説明

strFolder:初期設定するフォルダを指定します。

使用例

C2セルにフォルダが入っています。

C2セルのフォルダを初期設定として、「フォルダを選択する」関数に渡しています。

フォルダを選択した場合、C2セルに選択したフォルダを代入します。

Sub フォルダを選択する_Click()

    Dim strFolder As String
    Dim strGetFolder As String
    
    strFolder = Range("c2")
    
    strGetFolder = フォルダを選択する(strFolder)
    If strGetFolder <> "" Then
        Range("c2") = strGetFolder
    End If
    
End Sub

Sub フォルダを選択する_Click()

Dim strFolder As String

Dim strGetFolder As String

strFolder = Range("c2")

strGetFolder = フォルダを選択する(strFolder)

If strGetFolder <> "" Then

Range("c2") = strGetFolder

End If

End Sub