Visual Basic for Applications en ejemplos(VI)

En está ocasión veremos cómo crear bloques para el tratamiento de errores o cómo ignorarlos.

Visual Basic for Applications al igual que muchos otros lenguajes de programación posee mecanismos para el tratamiento de errores. Para entender mejor que tipos de errores podemos encontrar es mejor enumerarlos:

Tipos de errores:

• Errores en tiempo de compilación: los que ocurren cuando se ejecuta el proceso de verificación de sintaxis, recolección de datos, etc,
• Errores en tiempo de ejecución: cuando la aplicación está en funcionamiento. Muchos de ellos se deben a la interacción de usuario con el programa.
• Errores de máquina: puede ser un fallo en la memoria, recursos agotados, etc. en muchos casos el programador no puede hacer nada al respecto más que suplicar a los dioses un poco de piedad.

En VBA podemos ignorar el error ocurrido en nuestra aplicación o crear una etiqueta que muestre un mensaje al usuario indicándole cuál fue el error o la causa del este.

Primera forma: El usuario trata de borrar una hoja de Excel que no existe. Se le avisará mediante una ventana de alerta (MsgBox) el por qué del problema.

Sintaxis:

On Error GoTo NombreEtiqueta
Call FuncionALlamar

Exit Sub
'Etiqueta
NombreEtiqueta:

Donde:
NombreEtiqueta, es el nombre de la etiqueta a usar.
OnError GoTo, es la instrucción que nos mandará al bloque de NombreEtiqueta (donde mostraremos el error o causa del error).
Es importante notar que la instrucción Call nos sirve para invocar una función definida.

¿Cómo borramos una hoja de Excel?

Sheets("Aqui el nombre de la hoja").Delete

Debemos crear una subrutina o función sin tipo de retorno:

Sub Test()
'Aquí el código
End Sub

La etiqueta:

MiError:
'Hacer algo

El código completo así lucirá:

Sub Test()
On Error GoTo MiError
Call BorrarHoja

Exit Sub
MiError:
MsgBox "Ha ocurrido un error, la hoja no existe", vbExclamation, "Alquimista de código"
End Sub


Sub BorrarHoja()
Sheets("HojaInmediata").Delete
End Sub

Segunda forma: El usuario tratará de borrar la hoja que no existe y se ignorará el error. No se le avisará.

Sintaxis:

On Error Resume Next
'Hacer algo

El código completo:

Sub Test()
On Error Resume Next
Call BorrarHoja
End Sub

Sub BorrarHoja()
  Sheets("NoExiste").Delete
En Sub

El usuario tratará de borrar una hoja que no existe, pero no verá el error en pantalla. El bloque On Error Resume Next se hará cargo de ignorar el error ocurrido.