Access で ファイルを選ぶダイアログボックスを開く方法

ネットで見つけたものですが
http://billyboy.blog81.fc2.com/blog-entry-53.html
上記にあるものが完璧かつ使いやすいかと。

個人用メモということで。
以下コピペ。詳しくは上記のサイトを詳しく見るとよい。

モジュールとして下記を保存 Function GetFileName(OpenOrSaveFlg As Boolean) As String Dim returnValue As Integer Dim strFilePath As String WizHook.Key = 51488399 'WIZHOOKを有効化する returnValue = WizHook.GetFileName( _ 0, "", "", "", strFilePath, "", _ "テキストファイル (*.txt,*.csv,*.tab)|*.txt|*.csv|*.tab", _ 0, 0, 0, OpenOrSaveFlg _ ) WizHook.Key = 0 ' WizHook 無効化 GetFileName = strFilePath End Function


ボタンなどに下記を記入して保存 Sub test1() Dim strFileName As String strFileName = GetFileName(True) 'この引数をFalseにすると保存ダイアログ If Len(strFileName) = 0 Then 'キャンセルボタンが押されたときの処理を記述 MsgBox "キャンセルが押されました。" Else 'ファイルが指定されたとこの処理を記述 MsgBox strFileName End If End Sub

とりあえずはこれだけで実現可能。
ボタンに貼り付けるソースのif文にて保存のやエクスポートのコードを記入すればよい。

これべんり！
上記アドレスの管理人の方ありがとうございます。仕事がはかどります。