エクセル VBA

質問

エクセルで指定したフォルダから
シート１のA１セルに記入された名前のテキストファイルを
開くマクロを作りました
変数filepassがセルA1に記入されたファイルのパスのとして

Workbooks.OpenText filename:=filepass, StartRow:=1 _
, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _
, Space:=False, Other:=False, FieldInfo:=Array(1, 1)
しかし
このままだと指定したフォルダ（filepass)にファイルがなかったとき
エラーになります
もしファイルがなかったときに
何かメッセージを表示させたいのですが
どのようにすればよいのでしょうか
どなたか　教えてください

VBAは素人です　よろしくお願いします

回答No.1

noname#11856 · ベストアンサー

Workbooks.Open の前に
filepass（・・・余談ですが、ファイルパス等の「パス」はpathです(^-^;）をチェックしましょう。
ファイルの存在チェックで一番簡単なのはDir関数の使用・・・だと私は思います。

If Dir(filepass) = "" then
　　MsgBox "ファイルが存在しません"
Else
　　Workbooks.Open ・・・
End If

とか。

お礼

早速の回答ありがとうございます
もう少し勉強します
それと　ファイルパスですが　恥ずかしながらも
良い勉強になりました
ありがとうございます
また何かあればよろしくお願いします

回答No.3

noname#11856

#2さんのご回答に関して・・・

ws10さんの場合は、ファイルのパスがA1に入力されているということですが
提示された"False"というのはダイアログボックスを使用して、キャンセルを押下された場合の処理です。
Dir関数の戻り値として"False"が戻されるわけではありません。
でも、A1セルに手入力するよりは、ダイアログボックスでファイル検索をさせるほうがスマートかも？

回答No.2

imogasi

http://www.bekkoame.ne.jp/~poetlabo/COMP/Excel/VBASAMP/READMAIL.TXT
に
If dir_name = "False" Then Exit Sub
の記述例が載っています。＃１のご回答と実質同じですが
""でなく、Falseを使っています。