| ■103702 / ) |
Re[2]: エラー処理について |
□投稿者/ マクベス (3回)-(2025/05/29(Thu) 07:52:39)
|
■No103698 (魔界の仮面弁士 さん) に返信
>エラートラップモードを変更してみてください。
こういう設定があったんですね。
>エラー発生個所で止める以前の問題として
エクセルには try〜catch〜finaly がないので
正常な時も、異常な時も同じ後処理が必要な場合を
考えて同じコードを2か所に書きたくなかったので
以下のようなプログラム構造にしました。
private Sub 〜
：
Dim wbbok as Workbook
Dim msg as string: errmsg = ""
On Error GoTo ERROR
msg = "処理が終了しました。"
：
ERROR
if errmsg = "" then
' エラー処理
errmsg = "エラー"
End If
msgbox(msg)
' 何らかの影響で開かれたままのブックを閉じる
if wbook is null = false then wbook.Close
End Sub
|
|
