Access

AccessのVBAでファイルダイアログからファイルを指定する方法

ファイル選択

Accessの処理において、「EXCELやCSVファイルを指定する」というニーズがあります。

テキストボックスに直接入力やコピペによるファイル指定でも実現できますが、少々ユーザビリティが悪いですね。

そこで、ファイルダイアログを開いてファイルを指定する方法が便利です。

VBAフォルダ選択
AccessのVBAでファイルダイアログからフォルダを指定する方法主にファイルを出力するときなどに使うフォルダ選択ダイアログ。VBAのサンプルコードを公開しています。コピペでどうぞ。...

ファイルダイアログを開く画面イメージ

大体こんな感じのフォームをダイアログ形式で表示することが多いです。

Accessファイル指定画面

ファイル名のテキストボックスの横にフォルダアイコンがあるボタンを配置します。

 

スポンサーリンク

ファイルダイアログを開くための事前準備

ダイアログを開くにはFileObjectLibralyを使用します。

VBAからこのライブラリを利用できるように、参照設定を追加する必要があります。

VisualBasic画面の上部メニューのツール → 参照設定 の順で選択します。

「Microsft Office xx.x Object Library」 (xxはバージョン)にチェックを入れます。

この参照設定がなければコンパイルエラーとなります。

参照エラー

スポンサーリンク

ファイルダイアログを開く

以下のコードを標準モジュールに貼り付けます。

後は、先のフォームのファイル選択ボタンのクリックイベントでこのモジュールを呼び出すだけです。

この関数の引数はデフォルトのフォルダ名(初期表示させたいフォルダ名)です。

(例)me.txtファイル名=getFileName(“c:\”)

上記の例ではCドライブ直下がデフォルトのパスとしてファイルダイアログが表示されます。

デフォルトのパスを指定しなかった場合(引数が空文字””の場合)、マイドキュメントがデフォルトのパスになります。

accessファイル選択

このプログラムでは、以下のファイルを表示する設定になっています。

ファイルの種類 ファイル拡張子
EXCELファイル .xlsx, .xls
テキストファイル .csv, .tsv

表示させるファイルの種類を追加・削除する場合は、プログラムの16~17行目を編集してください。

ファイルを選択してOKをクリックすると、ファイル選択ダイアログが閉じられ選択したファイルがフォームのファイル名テキストボックスにセットされます

尚、キャンセルをクリックした場合はファイル名テキストボックスには何もセットされません

\逆引き辞書があると便利です/
[itemlink post_id=”1386″]

ABOUT ME
アズビーパートナーズ
プログラマー→社内SE→SIerのお仕事をしています。 メーカー勤務を経て、中小企業の社内SE、フリーランスなど様々な形態で働いてきました。 業務上生まれた困った…を解決してきたTipsを備忘録も兼ねて公開しています。 困っている誰かのお役に立てれば幸いです。