こんにちは。
Excel VBAでファイル間集計のマクロを作りました。
変数MyStrに指定のパスとファイル名を代入するようにしてあります。
Application.ExecuteExcel4Macro(MyStr)
を実行し指定のパスにファイル名が実在すれば、動作は上手くいきます。
ただし、指定のパスにファイルが存在しない場合、ファイル検索のダイアログが出てしまい、強制終了すれば、実行時エラー2023になってしまいます。
これを回避し、「該当のファイルが見つかりません」とメッセージを出したいのですが、IF文にどのように書けばいいのか分かりません。
参考サイトでも、構いませんので皆さんの知恵を貸して下さい。
よろしくお願いします。
No.1ベストアンサー
- 回答日時:
hana-hana3様
If Dir(MyStr) <> "" Then文で回避することができました。
サイトもとても参考になりました。
とっても嬉しいです!本当に有難うございました。
No.3
- 回答日時:
こんにちは。
#1さんの回答で良いです。 Dir(パス\ファイル名) で、戻り値がないと、長さ0文字列("")を返してきますので、それで判定できます。
#2さんのものは、基本的にありえません。ダイアログでファイルを探しているのは、Excel.Application です。その間は、マクロは停止状態ですから、エラーは返しません。その後で、ExecuteExcel4Macro が、エラーを返してきています。「エラー 2023」のエラーコードでも分かりますが、ワークシート側の関数の戻り値の[エラー値]で、「#REF! 」のことです。だから、On Error トラップを用いる必要はありませんが、
If IsError(Application.ExecuteExcel4Macro(MyStr) = True Then
On Error GoTo ERR
else
これは、コンセプトそのものが違っています。エラートラップというのは、VBA自身(Excel.Applicationではない)を停止させてしまうエラーを抜けることです。IsError というのは、その関数などが持っている[エラー値]を捕まえることで、そこに、On Error Goto は入れられません。ある程度のレベルになれば、そのエラーはどこで返しているか、知っておいたほうがよいと思います。
[エラー値]というのは、関数が持つひとつの値で、[エラー値]を返すことが出来るものだけが、IsError を用いることが出来るわけです。それ以外は、On Error トラップを用いるのですが、あまり頻繁に用いるべきものではありません。回避できるなら、その方法を選択するべきです。エラートラップというのは、VBAで使いこなすには、少し勉強が必要です。
ただ、ExecuteExcel4Macro(MyStr) というのは、「ブックを開かないで値をとる方法」というものだと思います。それについては、私も数回は書いたことがあるのですが、基本的には、VBAでブックを開いて、そこから値をとるというのが、一般的なコードです。どこかの掲示板に書かれたものが便利そうだから用いたのだと思いますが、一過性のものでないなら、なるべく古い手法は避けたほうが無難なような気がします。それ以外の方法もありますが、極端にレベルが高くなりますので、やむをえないところです。
Wendy02様
ご多忙の中、とても丁寧な説明を有難うございます!
Excel.Applicationで動作している事、
エラートラップというのは、VBA自身(Excel.Applicationではない)を停止させてしまうエラーを抜けることです。IsError というのは、その関数などが持っている[エラー値]を捕まえることで、そこに、On Error Goto は入れられません。
とても勉強になりました。
まだまだ駆け出しですが、少しずつ勉強しなければなりません。
どうか懲りずに今後もご指導よろしくお願いいたします。
No.2
- 回答日時:
ON ERROR GOTO でjumpすればいかがでしょうか
下記でエラーコード2023の場合にメッセーボックスにてエラーメッセージが出せます。
sub aaa()
ON ERROR GOTO ERR
通常の処理
exit sub
ERR:
if ERR=2023 then
msgbox "該当のファイルが見つかりません"
end if
end sub
この回答への補足
taka0028様
アドバイス有難うございます。
ご指導の通りに記述しましたが、一度ファイル検索のダイアログが出てしまい、そこでキャンセルボタンを押してからでないとErrルーチンに入ってくれません。
また、質問にイミディエイトウインドウの結果が「エラー 2023」と書きましたが、ファイル検索のダイアログでキャンセルボタンを押して返ってくる結果のようです。
そして、if ERR=2023 thenでは、「エラー 2023」は該当しないようです。
アドバイスを参考に
If IsError(Application.ExecuteExcel4Macro(MyStr) = True Then
On Error GoTo ERR
else
通常処理
も記述してみましたが、結果は同じです。
問題点をご教授下さい。よろしくお願いします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
VBAでのExecuteExcel4Macroの値取得でエラー
Excel(エクセル)
-
VBA ExecuteExcel4Macro 型が一致しません
Excel(エクセル)
-
ファイルを閉じたままの外部参照で最終行の行数取得
Visual Basic(VBA)
-
-
4
VBScriptによるExecuteExcel4Macroの使い方について
Visual Basic(VBA)
-
5
VBA(エクセル)で自動的にボタンをクリックさせるには
その他(プログラミング・Web制作)
-
6
Excel VBA ExecuteExcel4Macroについて
その他(Microsoft Office)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
「パス名が無効です」の発生原因
-
VBでファイルが開かれているか...
-
Access2013にてドラッグ&ドロ...
-
FORTRANの実行エラーについて
-
VB実行時エラー75:「パス名が...
-
VBから参照できないCのDLLを使...
-
エクセルマクロでエラーの原因...
-
access テキストボックスの値取得
-
「複数の選択範囲に対して実行...
-
Vba ファイル書き込み時に書き...
-
FTPの送信結果を検知したい
-
C# ハッシュテーブルを利用した...
-
Access2010 コンパイルエラー...
-
VB6.0開発ソフトインストールで...
-
gccを行ってもexeファイルが生...
-
EXCELのVBAでWORDが開いてある...
-
エクセル「これ以上新しいフォ...
-
NAS上のファイルの使用中が解除...
-
fcloseで発生するエラーについて。
-
Returnに対するGoSubがありません
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
「パス名が無効です」の発生原因
-
batファイルでレジストリキーの...
-
アクセスのクエリでコンパイル...
-
Returnに対するGoSubがありません
-
NAS上のファイルの使用中が解除...
-
VBから参照できないCのDLLを使...
-
PowerShellを使って関連付けら...
-
access テキストボックスの値取得
-
ACCESS VBAでのインポート
-
FTPの送信結果を検知したい
-
VBでファイルが開かれているか...
-
VB6 Dir関数で52エラー発生
-
【COBOL】read文でエラー
-
エクセル VBA dll 読み込...
-
VBA ExecuteExcel4Macro 型が一...
-
fgets関数のEOFの扱い方について
-
「複数の選択範囲に対して実行...
-
アクセスでイベントのロジック...
-
エクセルマクロでエラーの原因...
-
すでにファイルが開かれている...
おすすめ情報