Ｐａｇｅ 599 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼ファイルが見つから無い場合のエラー回避について しまちゃん 03/1/22(水) 16:26 ┗Re:ファイルが見つから無い場合のエラー回避について Jaka 03/1/22(水) 17:29 ┗Re:ファイルが見つから無い場合のエラー回避について しまちゃん 03/1/23(木) 13:00 ┗Re:ファイルが見つから無い場合のエラー回避について Jaka 03/1/23(木) 13:24 ┗Re:ファイルが見つから無い場合のエラー回避について しまちゃん 03/1/23(木) 19:50 ─────────────────────────────────────── ■題名 ： ファイルが見つから無い場合のエラー回避について ■名前 ： しまちゃん ■日付 ： 03/1/22(水) 16:26 -------------------------------------------------------------------------
| 初めまして。 私はここ最近VBAをやり始めた素人です。 質問なのですが、今ある特定のフォルダの中にあるファイル（ファイル名「１」〜ファイル名「９」）を自動的に開く作業を行っております。 作業の方法ですが、excelのシートのA列(A1〜A9)にファイル名を書き、ループでA1〜A9までのファイル名のファイルを自動に開こうとしております。 しかしもしexcelのシートのA列に書かれたファイル名のファイルの中で存在しないファイルがあったとき「ファイルが見つかりません。」とのエラーが出ます。 そこで質問なのですが、このファイルが見つからないエラーが出た時、これを無視して次のファイル名のファイルに作業が移動するにはどのようにしたら良いのでしょうか？ ご講義よろしく御願いいたします。 |
| こんにちは。 もう帰りますんでヒントだけ。 if dir(フルパスファイル名)="" then msgbox "指定されたファイルはありません。" else msgbox "ファイルはありました。" end if |
| こんにちは とてもわかりやすいヒントでかなり解ってきました。 そこで素人の私にもう一つ教えてください！ ファイルが見つからない時に 「指定されたファイルはありません。」を表示するのではなく、ファイルが見つからない時の作業を自動的に無視し、次の作業にいくようにするにはどのようにすればよいのでしょうか？ ほんとにど素人で申し訳ありません。 よろしく御願いいたします。 |
| >dir(フルパスファイル名)="" then > msgbox "指定されたファイルはありません。" 上記コードの意味を良く考えてください。 もし dir(フルパスファイル名) が何も無かったら「ファイルが無い」訳だから、 下のようにも書けますね！ if dir(フルパスファイル名) <> "" then 'もしファイルがあったら、と言う意味になりますね。 ここにファイルがあったとき何をしたいのかを書けば良いわけです。 こうすれば、わざわざエラートラップする必要がなくなります。 end if |
| おかげさまでできました！ ほんとうに分かりやすいヒントを二つもいただいて有り難うございました。 これからも素人ながらがんばっていきます！ これからも御指導よろしくお願い致します。 |