Excel VBAでテキストファイルを開く方法とエラー処理について

Excel VBAで、Excelのシートへの取り込みの必要はなく、テキストファイルを、拡張子で登録してあるメモ帳や秀丸なので開きたいです。

現在、単純に↓で開いています。
　CreateObject("Shell.Application").ShellExecute "ファイルのフルパス"

ファイルのフルパスは、マクロを実行して変数で取得しています。

ファイルが存在する場合はこれで問題なく開くことができるのですが、
ファイルが存在しない場合など、エラーのハンドリングがうまくできません。

最低限、以下の３つのパターンでエラーメッセージの表示を変えたいと思ってます。
１．ファイルが存在しない場合
２．パスが存在しない場合
３．その他エラー（On Errorで回避できれば十分）

VBA初心者なので、お知恵を拝借できないでしょうか？

よろしくお願いします。

No.1 回答者： x-1919 回答日時： 2017/08/04 13:08

FileSystemObject の FileExists メソッドを使うとか。

https://msdn.microsoft.com/ja-jp/library/cc42804 …
存在すれば True が帰ってきます。
FileExists の引数にテキスト ファイルのパスを与えるため、質問にある 1 と 2 を一緒に解決します。

ファイルが存在しない場合とパス（フォルダー？）が存在しない場合を分けて処理したいのであれば FolderExists メソッドもあります。

ここも参考になります。
http://www.atmarkit.co.jp/ait/articles/0805/15/n …

この回答へのお礼

ご回答ありがとうございます。
このところ時間が取れなくて、まだ試せてませんが、教えていただいたサイトを参考にして試してみます。
ありがとうございました。

お礼日時：2017/08/08 00:39