Ejemplo 1: excel vba test o comprobar si existe una hoja
'VBA function to test if a sheet exists in the active workbook:
Function IsSheet(n$) As Boolean
IsSheet = Not IsError(Evaluate(n & "!a1"))
End Function
'-----------------------------------------------------------------------
'Same thing, different technique (much faster):
Function IsSheet(n$) As Boolean
On Error Resume Next
IsSheet = Sheets(n).Index
End Function
Ejemplo 2: excel vba existencia de un archivo
' Existence of a file
If Dir("C:myDirectorymyFile", vbDirectory) = vbNullString Then
MsgBox "Doesn't exists"
Else
MsgBox "Exists"
End If
¡Haz clic para puntuar esta entrada!
(Votos: 0 Promedio: 0)