Excel VBA Global d'erreur de manipulation

Est-il un moyen de le faire global d'erreur de manipulation?

Puis-je mettre un peu de code dans le Classeur de code qui va attraper les erreurs qui se produisent dans tous les modules?

J'ai pu mettre le même gestionnaire d'erreurs dans chaque module, mais je suis à la recherche de quelque chose de plus général.

Je demande parce que j'ai les noms de feuilles qui sont stockés comme des variables globales comme ce Sheets(QuoteName). Si il y a une erreur, alors ces variables globales sont perdus. J'ai une macro qui permet de renommer les variables globales, mais j'ai mis cela dans Workbook_BeforeSave.

Je veux qu'il aille à l'erreur globale de gestionnaire et de renommer la variable globale si je reçois un Indice en dehors de la plage de erreur pour Sheets(QuoteName)

Autant que je sache, Il n'y a aucune façon vous pouvez obtenir ce genre d'erreur de manipulation. Vous devrez individuellement incluent le "on Error Goto" dans chaque procédure.
Ok. C'est une honte. M'aurait sauvé un certain temps.

OriginalL'auteur evoandy | 2013-02-18

  1. 7

    Comme Sid déjà mentionnées dans le commentaire, il n'existe pas de gestionnaire d'erreur.

    La meilleure pratique est d'avoir une centrale routine de gestion d'erreur qui est appelée à partir de l'erreur locale des gestionnaires. Jetez un oeil à la grande MZ-Tools: il a la possibilité de définir un gestionnaire d'erreurs par défaut en appuyant sur un bouton (Ctrl-E). Vous pouvez personnaliser ce gestionnaire d'erreur - et il peut également contenir du module et/ou sous le nom de!

    En outre, découvrez ce poste La Dose quotidienne d'Excel. C'est Dick Kusleika de l'OO version du gestionnaire d'erreur proposé dans ce livre (que je recommande fortement).

    +1 - MZ-Tools est un excellent complément.
    En effet, MZ-Tools est un atout précieux pour la VBA boîte à outils. Combiné avec sa ligne automatique de la numérotation de la fonction, la routine de gestion d'erreur d'insertion de l'outil est idéal pour les rapports des exceptions non gérées lors de la bêta/UAT phases de projets de grande envergure. Avec un peu d'effort, vous pouvez construire une hiérarchie par laquelle tout non gérée erreur d'exécution peut être transmis jusqu'à la macro point d'entrée et signalés par l'intermédiaire d'un formulaire utilisateur personnalisé/fichier journal complet avec la procédure de l'historique des appels avec tous les points de sortie des numéros de ligne.

    OriginalL'auteur Peter Albert

  2. -2

    Voici un code que j'ai jeté à gérer le problème de l'accès

    Il met la vérification des erreurs dans tous les sous-marins, mais pas de fonctions. subs avoir un formulaire parent (ACCÈS), ou à défaut, vous devez mettre le nom du formulaire à la main. sous-marins qui se poursuivent sur plus d'une ligne sera impitoyablement frappé.

    Les deux sous-marins doivent être au fond d'un module.

    • globalerror est votre routine de gestion d'erreur
    • CleaVBA_click les modifications de votre code VBA, ajoute la ligne #s pour tout

    globalerror regarde un booléen mondiale errortracking pour voir si il se connecte tout ou seulement les erreurs

    Il y a une table ErrorTracking qui doit être créée sinon juste un commentaire de 1990 à 2160

    Lors de l'exécution, il supprime puis ajoute les numéros de ligne pour tout le projet, de sorte que votre message d'erreur peut inclure une ligne #

    Ne sais pas si il fonctionne sur autre chose que des trucs que j'ai codé.

    Assurez-vous d'exécuter et de tester sur une copie de votre VBA, parce que c'littéralement réécrit chaque ligne de code de votre projet, et si j'ai foiré, et vous n'avez pas sauvegarder, votre projet est cassé.

        Public Sub globalerror(Name As String, number As Integer, Description As String, source As String)
1970  Dim db As DAO.Database
1980  Dim rst As DAO.Recordset
1990  If errortracking Or (Err.number <> 0) Then
2000     Set db = CurrentDb
2010     Set rst = db.OpenRecordset("ErrorTracking")
2020     rst.AddNew
2030     rst.Fields("FormModule") = Name
2040     rst.Fields("ErrorNumber") = number
2050     rst.Fields("Description") = Description
2060     rst.Fields("Source") = source
2070     rst.Fields("timestamp") = Now()
2080     rst.Fields("Line") = Erl
2100     rst.Update
2110     rst.Close
2120     db.Close
2130  End If
2140  If Err.number = 0 Then
2150     Exit Sub
2160  End If
2170  MsgBox "ERROR" & vbCrLf & "Location: " & Name & vbCrLf & "Line: " & Erl & vbCrLf & "Number: " & number & vbCrLf & "Description: " & Description & vbCrLf & source & vbCrLf & Now() & vbCrLf & vbCrLf & "custom message"
2180  End Sub
Private Sub CleanVBA_Click()
Dim linekill As Integer
Dim component As Object
Dim index As Integer
Dim str As String
Dim str2a As String
Dim linenumber As Integer
Dim doline As Boolean
Dim skipline As Boolean
Dim selectflag As Boolean
Dim numstring() As String
skipline = False
selectflag = False
tabcounter = 0
For Each component In Application.VBE.ActiveVBProject.VBComponents
linekill = component.CodeModule.CountOfLines
linenumber = 0
For i = 1 To linekill
str = component.CodeModule.Lines(i, 1)
doline = True
If Right(Trim(str), 1) = "_" Then
doline = False
skipline = True
End If
If Len(Trim(str)) = 0 Then
doline = False
End If
If InStr(Trim(str), "'") = 1 Then
doline = False
End If
If selectflag Then
doline = False
End If
If InStr(str, "Select Case") > 0 Then
selectflag = True
End If
If InStr(str, "End Select") > 0 Then
selectflag = False
End If
If InStr(str, "Global ") > 0 Then
doline = False
End If
If InStr(str, "Sub ") > 0 Then
doline = False
End If
If InStr(str, "Option ") > 0 Then
doline = False
End If
If InStr(str, "Function ") > 0 Then
doline = False
End If
If (InStr(str, "Sub ") > 0) Then
If InStr(component.CodeModule.Lines(i + 1, 1), "On Error GoTo error") <> 0 Then
GoTo skipsub
End If
str2a = component.CodeModule.Name
index = InStr(str, "Sub ")  ' sub
str = Right(str, Len(str) - index - 3)    ' sub
'           index = InStr(str, "Function ") ' function
'             str = Right(str, Len(str) - index - 8) 'function
index = InStr(str, "(")
str = Left(str, index - 1)
varReturn = SysCmd(acSysCmdSetStatus, "Editing: " & str2a & " : " & str)
DoEvents
If (str = "CleanVBA_Click") Then
MsgBox "skipping self"
GoTo selfie
End If
If str = "globalerror" Then
MsgBox "skipping globalerror"
GoTo skipsub
End If
component.CodeModule.InsertLines i + 1, "On Error GoTo error"
i = i + 1
linekill = linekill + 1
component.CodeModule.InsertLines i + 1, "error:"
i = i + 1
linekill = linekill + 1
component.CodeModule.InsertLines i + 1, "Call globalerror(Me.Form.Name & """ & "-" & str & """, Err.number, Err.description, Err.source)"
i = i + 1
linekill = linekill + 1
component.CodeModule.InsertLines i + 1, " "
i = i + 1
linekill = linekill + 1
If (str = "MashVBA_Click") Then
MsgBox "skipping self"
MsgBox component.CodeModule.Name & " " & str
GoTo selfie
End If
Else
If skipline Then
If doline Then
skipline = False
End If
doline = False
End If
If doline Then
linenumber = linenumber + 10
numstring = Split(Trim(str), " ")
If Len(numstring(0)) >= 2 Then
If IsNumeric(numstring(0)) Then
str = Replace(str, numstring(0), "")
End If
End If
component.CodeModule.ReplaceLine i, linenumber & " " & str
End If
End If
skipsub:
Next i
selfie:
Next
varReturn = SysCmd(acSysCmdSetStatus, " ")
MsgBox "Finished"
End Sub

    OriginalL'auteur user3666385