【VBA】フォルダ選択ダイアログを表示する
<機能>
フォルダ選択ダイアログを表示します。
下記プロパティを設定します。
・初期表示フォルダ
・ダイアログタイトル
・ボタンのキャプション
<動作検証>
Microsoft Office 2016
<実行イメージ>
<使い方>
適当なところにソースを貼り付けてください
フォルダを選択する() を実行すると処理を開始します
'/********************************************************
'/* フォルダ選択ダイアログを表示する
'/* 引数:
'/* strDefault 初期表示フォルダ
'/* 戻り値:
'/* 選択されたときtrue、キャンセルされたときfalse
'/* strSelect 選択されたフォルダパス(参照)
'/********************************************************
Function SelectFolder(ByVal strDefault As String, _
ByRef strSelect As String) As Boolean
SelectFolder = False
strSelect = ""
'//フォルダ選択ダイアログを表示
With Application.FileDialog(msoFileDialogFolderPicker)
'初期表示フォルダ
.InitialFileName = strDefault & "¥"
'タイトルを指定
.Title = "フォルダ選択ダイアログサンプル"
'ボタンのキャプションを変更
.ButtonName = "選択確定"
'フォルダが選択された
If .Show = True Then
strSelect = .SelectedItems(1)
SelectFolder = True
Else
.Execute
End If
End With
End Function
'/********************************************************
'/* フォルダ選択ダイアログ呼び出しサンプル
'/********************************************************
Public Sub フォルダを選択する()
Dim strSelect As String
Dim wksel As Variant, wkmsg As String
'//フォルダを選択する
If Not SelectFolder(ThisWorkbook.Path, strSelect) Then
MsgBox "フォルダ選択がキャンセルされました", vbCritical
Exit Sub
End If
'//選択されたフォルダを表示
MsgBox "選択フォルダ:" & vbCrLf & strSelect, vbInformation
End Sub
よろしければポチッと押してください