マクロで真っ暗 (エラートラップについてです見捨てないで～)

質問

＜エラーが発生したマクロ文を特定したいのですが＞

　作成したマクロ(Excel2kです)実行中に、
思わぬ不運にみまわれて、やむなくエラー発生となり
お先真っ暗・・・となったばあい、
On Error文を使って対応指針を表示させたいと思うのは,
変な病気なのでしょうか。

Err.Descriptionプロパテ－の内容は（確かに正しいあんたはえらいと思うのでありますが）
素人目には(不親切だな～)と感じることがあります。
ex.)
開いたbookで指定のsheetを探したけど無かった場合・・・
　(期待値)："お探しのシートはこのbookにはありませんよお客さん他をあたってね"
(実際　)："インデックスは有効範囲にゃ～ありませんぜ他をあたりな"

　エラーが発生する可能性のある文すべてを対象にエラー内容を全予測して、
前後の文脈やエラーに至ったオペレーション記録などから
操作の当事者レベルに応じて妥当な解決方法を導き出すメッセージを３秒以内で・・・
一生かかってもムリっぽいのでこれはあきらめました。
(労苦の上に努力を重ねるパイロットさんが職失ってしまいますよね)

＜＜-- 質問です --＞＞
　ほのかわり、初動調査のあしがかりとして、マクロ記述内でエラーの発生した＜文&場所＞を
明確に表示する方法なんかありませんでしょうか?(msgboxでだしたい)

Resumeって書くとエラー発生文に戻るみたいなので内部的に情報保持してる
とおもうのですが開示のしかたがわかりません・・・
デバグ途上でOn Error記述なしだとvb editerが該当文を指摘してくれるんですが
作成ツールとしてはOnErrいれちゃいたいのです。

長々すいません、このコーナーには何度か投稿してるのですが、
いつも多数の親切な回答でソッコー解決してしまうので、また書いてしまいました。

よろしくおねがいします。

回答No.2

ARC

>　システムがエラーとして検知した＜まくろ本文＞を取得する”公式”
（それ一文のみの記述で全ステートメントに有効な）
のようなものがあればなあ～とおもい当質問にいたったのでした。

うーん、これは現時点ではどうしようもないですねぇ。
仰るように、エラー処理は昔っからどうしようもなく手間がかかるものでして、私もプログラムしながら何度「もっと楽になったらなぁ。」と思ったか分かりません。

仮に、エラーの起こった行を取得したとしても、その行の構文を解析して、
Set mySheet = Workbooks(0).Worksheets("ほげほげ")
から「ほげほげ」を取得するのは想像以上に厄介です。

SheetNo = 1
Set mySheet = Workbooks(0).Worksheets("Sheet" _
　　& SheetNo + 1)

なんて書き方をされた日にゃ、これを解析するプログラムを作るだけでソフト１本分以上の手間がかかってしまうかも(^^;

もっと簡単そうなのは、自作関数を使う手でしょうか。

Public Function CheckSheet(SheetName As String, Optional TargetBook As Workbook) As Worksheet
　On Error Resume Next
　If TargetBook Is Nothing Then
　　Set TargetBook = Workbooks(0)
　　If Err <> 0 Then
　　　MsgBox "ワークブックが開いていない。"
　　　Err.Clear
　　　Exit Function
　　End If
　End If
　Set CheckSheet = TargetBook.Worksheets(SheetName)
　If Err <> 0 Then
　　MsgBox "指定したワークシートは存在しません。" & vbNewLine _
　　　& SheetName
　　Set CheckSheet = Nothing
　　Err.Clear
　End If
End Function

ってなコードを書いておいて、ワークブックを開くときに、
Set mySheet = CheckSheet("Sheet1")
みたいな感じで呼び出すと、比較的簡単にエラーチェック出来ます。

あと、エラー処理に関しては、多分Officeの次の次のバージョンあたりで、「例外処理」という考え方が取り入れられると思います。
これを使えば、今よりは若干エラー処理がやりやすくなるものと思います。
(といっても、コードが見やすくなるだけで、エラー処理の手間自体は大して変わらないんですが。)

お礼

貴重な時間をありがとうございます。
　(質問側がレスポンス遅いのは恥ずかしいかぎりです…)

ご提示いただいた参考文は、
--同類対象への似たような行動については、ひとまとめにパックしといて、
必要の都度カンタンな呪文で呼びだせば・・・。--　
ということですよね（きっと）。

　いずれにしても、現時点では、自分でいろいろ
考えたり(=ハマッたり)しながらゴリゴリ作りこむしかないようで…。^^);

大変参考になりました。

　またなんか気づくことがあるかもしれないので、
この質問は、締めずにおいときます。
（気分は”良々回答200ｐｔ贈”です）

ありがとうございました。