Gruppe
Extern
Bereich
TextExport
Thema
Fehlermeldung abfangen und in sequentielle Datei schreiben
Problem
Wie kann ich Fehlermeldungen abfangen und die Fehlernummer mit der Meldung in eine sequentielle Textdatei schreiben lassen?
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: basMain
Sub FehlerProtokoll()
Dim iCount As Integer
Dim sFile As String
sFile = Application.Path & "\MyError.txt"
On Error GoTo ERRORHANDLER
iCount = 40000
End
ERRORHANDLER:
Open sFile For Output As #1
Print #1, "FehlerNummer: " & Err
Print #1, "Fehler: " & Error
Close
Workbooks.OpenText sFile
MsgBox "Weiter"
ActiveWorkbook.Close savechanges:=False
Kill sFile
End Sub