Officeライブラリー:SampleFile217ファイルを開くダイアログを表示させたり、フォルダーを指定するためのダイアログを立ち上げたり、ファイル操作をAccessで行う際には、誰もが欲しがる機能です。この機能は、WindowsAPIを用いるのがもっともポピュラーで、全てのAccessバージョンで利用することができます。これ以外にも、Excelライブラリーの機能を借用して実現させたりする裏技もあります。しているうちに、OfficeXPが発売されるとOfficeライブラリー(バージョン10.0)に漸く組み込まれ、割と安心して利用できるようになりました。今回、ご紹介する方法もこのOfficeライブラリーを用いる方法です。サンプルは、フォーム上のテキストボックス(非連結)にコマンドボタンを押してPC内部のフォルダー、ファイルを選択し、パスを代入する公正にしています。初期値は、出力フォルダーを開くダイアログが立ち上がります。Access2002以降のバージョン専用です。残念ながら、Access2000、97、95では利用できませんのでご承知ください。利用で実現できますので、下記の関連ページを参照して下さい。以下の手順で、下準備を行います。Access2002(Access2003)を開き、VBE画面を呼び出します。Editorを選択することで呼び出すことができます。メニューバーのツールから参照設定を選択します。Libraryをチェックし有効にします。Libraryとなっています。FunctionプロシージャOfficeFileDialogを以下のように記述します。今回は、プロシージャの引数の違いによって出力フォルダーを開くダイアログを呼び出すファイルを開くダイアログを呼び出すを即座に切り替えできる仕様としました。'エラー処理ルーチンを実行します。&quot;Access2002、2003でないため、この機能を利用できません。'オブジェクトへ変数を代入。'ファイル参照用の設定値をセットします。'フォルダー選択時は複数選択を不可(False)。ファイル選択時は可能(True)。