Access VBA:FileDialogオブジェクトを使用してフォルダのみ選択できるフォルダ選択ダイアログボックスを表示するサンプルプログラム

Access VBA:FileDialogオブジェクトを使用してフォルダのみ選択できるフォルダ選択ダイアログボックスを表示するサンプルプログラム

AccessのFileDialogオブジェクトを使用してフォルダのみ選択する[フォルダ選択]ダイアログボックスを表示するサンプルプログラムを覚書。

例えば、このフォルダに保存されている全てのcsvファイルを読み込ませて、それぞれのファイルに何か処理をするみたいなプログラムを書くことがよくある。

そういう場合、[ファイルを開く]ダイアログボックスを使ってフォルダのみ選択できるようにしたいので、その方法を覚書。

フォルダの中のファイル全部じゃなくて特定の複数のファイルを指定したいなら以下の記事を参照。

AccessのFileDialogオブジェクトを使用してダイアログボックスを表示して利用する方法の詳細については、Access VBA:...

フォルダ選択ダイアログサンプルプログラムの動作前提条件

後述するAccessのVBAのサンプルプログラムの動作確認は、Access 2013で行っています。

また、FileDialogオブジェクトを使用する際には必ず[参照設定]で以下のオブジェクトライブラリの参照を有効にして置く必要があります。

参照を有効化するオブジェクトライブラリ

Microsoft Office 15.0 Object Library
※15.0というバージョンは、Accessのバージョンによって異なります。

オブジェクトライブラリの参照手順

以下に「Microsoft Office 15.0 Object Library」の参照手順を記載します。

  1. Accessのリボンツールバーの[作成]タブをクリックする。
  2. [作成]タブの右端にある[Visual Basic]をクリックする。
  3. [Microsoft Visual Basic for Applications]画面(VBAエディタ)が開くので[ツール]メニューの[参照設定]をクリックする。
  4. [参照可能なライブラリ ファイル]の一覧(五十音順に並んでいます)から「Microsoft Office 15.0 Object Library」のチェックをオンにして[OK]をクリックする。
    Microsoft Office 15.0 Object Library

フォルダ選択ダイアログサンプルプログラム

FileDialogオブジェクトを使用してフォルダ選択ダイアログボックスを表示するには、FileDialogオブジェクトの定数に”msoFileDialogFolderPicker”を指定する。


FileDialogオブジェクトの記事がバラバラとちらばってあるので一度まとめよう。