アクセスには、ファイルやフォルダを選択するダイアログは用意されていません。

ネットで検索すると、エクセルの「GetOpenFilename」をアクセスで使ったり、Officeオブジェクトのファイル選択ダイアログを使うという方法がヒットします。
このブログでは、以前、参照設定を使わずにファイルを選択するダイアログを実行する方法を紹介しました。今回は、フォルダを選択するダイアログを実行する方法を紹介したいと思います。
Function FolderSelect() Dim varTgtFldNM As Variant On Error GoTo ErrorHandler 'エラー処理を宣言します。エラーが生じたら ErrorHandler 部分へ飛びます。 'ファイル参照用の設定値をセットします。 'ファイルを選択する場合は、msoFileDialogFolderPicker → 4(定数) With Application.FileDialog(4) 'ダイアログタイトル名 .Title = "フォルダを選択してください" '複数ファイル選択を可能にする場合はTrue、不可の場合はFalse。 .AllowMultiSelect = False '最初に開くホルダーを当ファイルのフォルダーとします。 .InitialFileName = CurrentProject.Path & "\" If .Show = -1 Then 'ファイルが選択されれば -1 を返します。 FolderSelect = .SelectedItems(1) Else Exit Function End If End With Exit Function ErrorHandler: MsgBox "予期せぬエラーが発生しました" & Chr(13) & _ "エラーナンバー:" & Err.Number & Chr(13) & _ "エラー内容:" & Err.Description, vbOKOnly Exit Function End Function
コードを実行すると、このようにフォルダ選択ダイアログが出現します。


コメントをどうぞ!
とても素晴らしい記事をありがとうございました。
とても助かりました。
けーいち様
コメントありがとうございます。お役に立てたようで何よりです。