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

質問

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

Application.Dialogs(xlDialogOpen).Show

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

回答No.1

arukamun · ベストアンサー

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

お礼

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

回答No.2

imogasi

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

http://tllsp.web.infoseek.co.jp/contents/tips/tips_file_io_.htm

お礼

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