comando per gestire gli errori, anche errori di Overflow:

sintassi:

• va ad una etichetta GoTo etichetta
rilevato un errore va all'etichetta
On Error GoTo etichetta

.... codici che protrebbero dare errore

Exit Sub


etichetta:

.... codici da eseguire se da errore

Resume Next riprende ad eseguire il comando successivo a quello che ha generato l'errore
Resume etichetta va nella posizione della etichetta indicata

End Sub




• salta il comando che da errore e continua il codice Resume Next
puó essere usato come comando per far proseguire direttamente la macro con le istruzioni seguenti a quella che ha dato errore
On Error Resume Next

...





esempio: se il file test.xlsx é aperto allora chiudilo. Se il file é chiuso da errore ma in questo caso viene saltato il comando
On Error Resume Next

If Not Workbooks("test.xlsx") Is Nothing Then Workbooks("test.xlsx").Close




si usa nel incollo speciale da diverse fonti (stesso foglio, file testo, file esterno)
On Error Resume Next

ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:=False, NoHTMLFormatting:=True
ActiveSheet.PasteSpecial Format:="Unicode Text", Link:=False, DisplayAsIcon:=False, NoHTMLFormatting:=True
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False





• disabilita ogni istruzione Errore precedente GoTo 0
On Error GoTo ETICHETTA

... comandi che possono dare errori

On Error Goto 0 fine della verifica dell'errore

oggetto errore Err
quando si verifica un errore si crea un oggetto Err che ha alcune propietà unitili per l'analisi

• .Number
restituisce il numero dell'errore

esempio: analisi nel numero dell'errore
If Err.number = -2147467259 Then ...




• .Description
• .HelpContext
• .HelpFile
• .Source

problermi nei cicli, il comando di errore On Error non funziona e il codice va in Debug
senza un apparente motivo a volte il comando On Error non funziona nei cicli e il codice va in Debug

soluzione:
si inseriscono due etichette una a fine macro che fa poi tornare dentro il ciclo alla interazione successiva

For Each variabile In lista

On Error GoTo ETICHETTA se errore va fuori macro
.... comandi che danno errore

Next variabile prossima interazione del ciclo


Exit Sub

Resume PROSSIMOCICLO torna nel ciclo alla prossima interazione