こんにちは。
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で質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルのマクロについて教えてください。 7 2023/07/04 09:18
- Visual Basic(VBA) Excel ファイルを指定し、指定されたファイル内にシートを統合するVBA 8 2023/07/10 10:09
- Visual Basic(VBA) 動かなくなってしまった古いVBAを動くようにしたい 8 2022/09/20 13:57
- Excel(エクセル) Excelを開くとエラーが出る 2 2022/10/03 16:13
- Visual Basic(VBA) エクセルVBA 4 2022/05/14 00:51
- Excel(エクセル) エクセルのマクロについて教えてください。 2 2023/02/21 13:29
- Visual Basic(VBA) VBAでの共有パスにつきまして 1 2023/03/04 17:24
- Visual Basic(VBA) 複数のcsvファイルをExcelに一括変換したい 2 2023/03/03 12:44
- Excel(エクセル) Excel VBAどこが間違ってますか? 4 2023/07/17 10:04
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/06 17:46
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
VBA ExecuteExcel4Macro 型が一致しません
Excel(エクセル)
-
VBAでのExecuteExcel4Macroの値取得でエラー
Excel(エクセル)
-
Excel VBA Application.caller エラー2023について
Visual Basic(VBA)
-
-
4
ファイルを閉じたままの外部参照で最終行の行数取得
Visual Basic(VBA)
-
5
VBScriptによるExecuteExcel4Macroの使い方について
Visual Basic(VBA)
-
6
Excel VBA ExecuteExcel4Macroについて
その他(Microsoft Office)
-
7
VBAでブックを非表示で開いて処理して閉じる方法
Excel(エクセル)
-
8
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Returnに対するGoSubがありません
-
「パス名が無効です」の発生原因
-
アクセスでイベントのロジック...
-
VBでファイルが開かれているか...
-
【COBOL】read文でエラー
-
Excel 2003 のエラーメッセージ
-
VBから参照できないCのDLLを使...
-
FTPの送信結果を検知したい
-
すでにファイルが開かれている...
-
Access2013にてドラッグ&ドロ...
-
パソコンで受信したGmailのファ...
-
EXCELのVBAでWORDが開いてある...
-
構造体をランダムファイルに書...
-
「複数の選択範囲に対して実行...
-
fgetcの返却値 EOFについて
-
fcloseで発生するエラーについて。
-
VB実行時エラー75:「パス名が...
-
FileSearchがExcel2010でできない
-
freadでデータがない場合の読込...
-
アウトルックが起動できません
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBでファイルが開かれているか...
-
batファイルでレジストリキーの...
-
Returnに対するGoSubがありません
-
VBから参照できないCのDLLを使...
-
「パス名が無効です」の発生原因
-
access テキストボックスの値取得
-
アクセスのクエリでコンパイル...
-
PowerShellを使って関連付けら...
-
freadでデータがない場合の読込...
-
【COBOL】read文でエラー
-
gccを行ってもexeファイルが生...
-
ファイルクローズ(fclose)でエ...
-
VB6 Dir関数で52エラー発生
-
ACCESS VBAでのインポート
-
NAS上のファイルの使用中が解除...
-
FTPの送信結果を検知したい
-
エクセルマクロでエラーの原因...
-
Access2013にてドラッグ&ドロ...
-
EXCELのVBAでWORDが開いてある...
-
fcloseで発生するエラーについて。
おすすめ情報