| 例外処理 |
|
■例外処理
【構文】
On Error GoTo ラベル名
ラベル名：
エラー処理
|
【例外処理】
Sub Test()
On Error GoTo ER
Dim i_int As Integer
MsgBox "開始"
i_int = "文字列" 'エラー発生
MsgBox "継続"
MsgBox "終了"
ER:
MsgBox "エラー番号:" & Err.Number
MsgBox "エラー内容：" & Err.Description
MsgBox "ヘルプファイル名" & Err.HelpContext
MsgBox "プロジェクト名：" & Err.Source
'Resume Next エラー後、継続処理を続ける場合はコメント無し
End Sub
|
【プロパティ情報】
| プロパティ |
内容 |
| Number |
エラー番号 |
| Description |
エラー番号に対応する文字列(エラー内容) |
| Source |
現在のプロジェクト名 |
| HelpFile |
ヘルプファイル名 |
| HelpContext Number |
ヘルプファイルに対応するコンテキスト番号 |
|
|
| |
 A8ネット
・人気度：★★★★★
・言わずと知れた人気ASP
 |
| |
楽天市場
・人気度：★★★★★
・誰でも安心、楽天市場で
タワーレコード
・人気度：★★★★☆
・CD/DVDならタワレコで
|
|
