EXCEL VBA ファイル選択ダイアログ

Excel VABからファイルを選択するためのダイアログ(ポップアップ?)を表示させる事はできるのでしょうか?

よろしくお願いします。

No.2 ベストアンサー 回答者： project-a 回答日時： 2001/09/21 16:43

私が使っているものです。

参考になりますか？

Dim Ret As VbMsgBoxResult
'「ファイルを開く」ダイアログの表示
FILE_IN:
FILE_NAME = Application.GetOpenFilename() 'ここでダイアログを開きます。
If FILE_NAME = "False" Then
Ret = MsgBox("ファイル名が未指定です。再入力しますか？" & vbNewLine & "[いいえ]を応答すると処理を中止します。", vbYesNo, "ファイル名未入力")
If Ret = vbNo Then Exit Sub
GoTo FILE_IN
End If

なお、選択させるファイルの種類を制限するなら、フィルタを使用します。

(例）ＣＳＶファイルを選択させる場合
FILE_NAME = Application.GetOpenFilename(FileFilter:="Export File(*.csv),*.csv")

この回答へのお礼

ありがとうございます。
早速試してみます。

お礼日時：2001/09/22 22:36

No.1 回答者： bin-chan 回答日時： 2001/09/21 16:31

「ファイルを開く」は"GetOpenFilename",

「名前を付けて保存」は"GetSaveAsFilename"などです。

ＨＥＬＰを参照すると「使用例」もあります。

この回答へのお礼

ありがとうございます。
GetOpenFilenameと分っていればヘルプも引けるんですけどねぇ...
もっと色々なKeywordで参照できればね。

お礼日時：2001/09/22 22:35