
A 回答 (2件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
私も使用していますが、
行番号と関数のヘッダ、エラーハンドラを自動でつけてくれるツールがあります
(行番号を除くこともできます)。
http://www.mztools.com/v3/mztools3.htm
参考URL:http://www.mztools.com/v3/mztools3.htm
No.1
- 回答日時:
「_FILE_」
これは、エラー発生時にそのコードが記述されている
.Cファイル名を取得したい時などに
良く使用したと記憶していますが、(間違っていたらすみません。)
VBでいうならば、モジュールのファイル名を取得したいということでしょうか?
だとすれば、それは出来ないかと思います。
その場合、ファイル名を定義しておいて、
その都度出力するなどの方法しかないと思います。
(私が知らないだけでしたらゴメンナサイ・・・)
実行ファイルの名称で良ければ、
AppクラスのEXENameプロパティが相当すると思います。
使用例)
Debug.Print App.EXEName
「_LINE_」
エラー発生時の行数ということであれば、
InformationクラスのErlが相当すると思います。
ただし、全行に行番号をふる必要があります。
使用例)
Private Sub Form_Load()
On Error Goto ErrHandler
100: Dim Test() as String
200: Form1.Caption = Test(0)
300: Exit Sub
ErrHandler:
Debug.Print "エラー行:" & Erl
End Sub
実行結果>
エラー行:200
また、エラー内容、エラー番号などは
InformationクラスのErrオブジェクトで取得できます。
使用例)
Private Sub Form_Load()
On Error Goto ErrHandler
100: Dim Test() as String
200: Form1.Caption = Test(0)
300: Exit Sub
ErrHandler:
Debug.Print "エラー行:" & Erl
Debug.Print "エラー内容:" & Err.Description
Debug.Print "エラー番号:" & Err.Number
End Sub
実行結果>
エラー行:200
エラー行:インデックスが有効範囲にありません。
エラー行:9
以上、長くなりましたが、的外れな回答だったらすみません。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
UserForm1.Showでエラーになり...
-
お助けください!VBAのファイル...
-
String""から型'Double'への変...
-
「実行時エラー '3167' レコー...
-
Filter関数を用いた結果、何も...
-
文字列内で括弧を使うには
-
実行時エラー 438 の解決策をお...
-
ACCESSで値を代入できないとは?
-
【VBA】ワークブックを開く時に...
-
助けてください
-
On ErrorでエラーNoが0
-
VBAでのファイル読込エラー...
-
ASPでこんなエラーが出たんです...
-
インポート時のエラー「データ...
-
VBA データ(特定値)のある最...
-
VBAでfunctionを利用しようとし...
-
コンボボックスの特定項目だけ...
-
演算子が DBnull 及び integer...
-
Excel vbaについての質問
-
PL/SQLでファンクション名に変...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
UserForm1.Showでエラーになり...
-
お助けください!VBAのファイル...
-
【VBA】ワークブックを開く時に...
-
VBAでfunctionを利用しようとし...
-
String""から型'Double'への変...
-
実行時エラー 438 の解決策をお...
-
マクロで"#N/A"のエラー行を削...
-
文字列内で括弧を使うには
-
レコード登録時に「演算子があ...
-
【Access】Excelインポート時に...
-
インポート時のエラー「データ...
-
Filter関数を用いた結果、何も...
-
ApplicationとWorksheetFunctio...
-
On ErrorでエラーNoが0
-
Excel vbaについての質問
-
ACCESSで値を代入できないとは?
-
VBA データ(特定値)のある最...
-
【VBAエラー】Nextに対するFor...
-
「実行時エラー '3167' レコー...
-
実行時エラー'-2147467259(8000...
おすすめ情報