EXCELで全ての拡張子のファイルを表示するダイヤログ

EXCEL2002(OS Win XP)を指定しています。
処理の途中でユーザーにファイルを指定させる部分に

Application.Dialogs(xlDialogOpen).Show

を使用しています。
しかし、これだけですとエクセルのファイルしか表示されません。
ユーザーが画面の下の方で「ファイルの種類」を変更しなくても最初から全ての種類のファイルが表示されるようにしたいのですが、どのようにしたらよいでしょうか？

No.2 回答者： imogasi 回答日時： 2004/02/06 06:40

Sub test01()

Dim x As Boolean
x = Application.Dialogs(xlDialogOpen).Show(arg1:="*.*")
End Sub

http://tllsp.web.infoseek.co.jp/contents/tips/ti …

この回答へのお礼

詳しいご説明ありがとうございました。
すみませんが、ポイントはご回答いただきました順番につけさせていただきます。

お礼日時：2004/02/06 06:48

No.1 ベストアンサー 回答者： arukamun 回答日時： 2004/02/06 04:20

Application.Dialogs(xlDialogOpen).Show("*.*")

この回答へのお礼

こんな簡単にできてしまうのですね。
Application.Dialogs(xlDialogOpen).Show(*.*)
↑までは思いついたのですが、""が足りませんでした。
どうもありがとうございました。

お礼日時：2004/02/06 06:46