GetOpenFilenameメソッド アクセス

エクセルには
GetOpenFilenameメソッドが用意されてるから

Debug.Print Application.GetOpenFilename("Microsoft Excelブック,*.xls")
のようにしてファイル名を取得できますが
アクセスで同じような事がしたい場合、どのメソッドを使えば良いでしょうか？

アクセスにGetOpenFilenameメソッドはないようです。

No.1 ベストアンサー 回答者： oka_me 回答日時： 2013/10/13 20:14

Excelと比べると少々面倒な方法になるようですが、以下のURLに方法が記載されていました。

http://www.accessclub.jp/samplefile/samplefile_1 …

但しそのままですとページの記載通り「2002、2003でのみ」しか動作しませんので

If Returnvalue = "10.0" Or Returnvalue = "11.0" Then

の部分に、使用したいAccessのバージョンに対応した数値を追加してやる必要があります。
（例えば2007の場合は12.0のようです。この数字は参照設定から確認できます）

2007で試しましたが問題無く動作しました。

この回答へのお礼

ご回答ありがとうございます。

お礼日時：2013/11/02 09:29