参照設定を使用せずにアクセスでフォルダ選択ダイアログを使うには

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

ネットで検索すると、エクセルの「GetOpenFilename」をアクセスで使ったり、Officeオブジェクトのファイル選択ダイアログを使うという方法がヒットします。

このブログでは、以前、参照設定を使わずにファイルを選択するダイアログを実行する方法を紹介しました。今回は、フォルダを選択するダイアログを実行する方法を紹介したいと思います。

参照設定を使用せずにアクセスでファイル選択ダイアログを使うには

Microsoft Accessにはエクセルで用意されているような、ファイルを選択するダイアログ「GetOpenFilename」に相当する関数はありません。アクセスでファイル選択ダイアログを使用する方法です。

waq3-travelog.com

2018.09.13

Function FolderSelect() As String

On Error GoTo ErrHNDL  'エラー処理を宣言します。エラーが生じたら ErrHNDL 部分へ飛びます。

'フォルダ参照用の設定値をセットします。
'フォルダを選択する場合は、msoFileDialogFolderPicker →　4（定数）
With Application.FileDialog(4)

     'ダイアログタイトル名
     .Title = "フォルダを選択してください"
     
     '複数ファイル選択を可能にする場合はTrue、不可の場合はFalse。
     .AllowMultiSelect = False

     '最初に開くフォルダーを、当ファイルが存在しているフォルダーとします。
     .InitialFileName = CurrentProject.Path & "\"

    If .Show = -1 Then 'ファイルが選択されれば　-1 を返します。
    
        FolderSelect = .SelectedItems(1)
    Else
    
        FolderSelect = ""
        Exit Function
    End If
End With
Exit Function

ErrHNDL:

     MsgBox Err.Number & vbCrLf & Err.Description
     Exit Function
End Function

コードを実行すると、このようにフォルダ選択ダイアログが出現します。