Contenido
La instrucción Declare en VBA se utiliza para declarar una función o un procedimiento que está definido en una DLL externa o en una biblioteca de vínculos dinámicos. Esto permite a tu código VBA interactuar con funciones y procedimientos de la biblioteca externa.
Sintaxis
Declare Sub NombreProcedimiento Lib "NombreBiblioteca" [Alias "AliasNombre"] [([argumentos])]
Declare Function NombreFuncion Lib "NombreBiblioteca" [Alias "AliasNombre"] [([argumentos])] As TipoDato
- NombreProcedimiento es el nombre del procedimiento externo que deseas llamar.
- NombreFuncion es el nombre de la función externa que deseas llamar.
- Lib especifica el nombre de la biblioteca de vínculos dinámicos (DLL) que contiene la función o procedimiento.
- Alias es opcional y se utiliza para especificar un nombre alternativo para la función o procedimiento externo.
- [argumentos] es una lista opcional de argumentos que se pasan a la función o procedimiento externo.
- TipoDato se utiliza para especificar el tipo de dato que devuelve la función externa.
Ejemplo
Aquí tienes un ejemplo de cómo usar Declare para llamar una función externa definida en una biblioteca de vínculos dinámicos (DLL):
Declare Function GetTickCount Lib "kernel32" () As Long
Sub ObtenerTickCount()
Dim TickCount As Long
TickCount = GetTickCount()
MsgBox "El contador de milisegundos es: " & TickCount
End Sub
En este ejemplo, estamos declarando la función GetTickCount que está definida en la biblioteca «kernel32». Esta función devuelve el contador de milisegundos desde el inicio del sistema. Luego, en la subrutina ObtenerTickCount, llamamos a la función externa y mostramos el resultado en un cuadro de mensaje.
Recuerda que para utilizar Declare, debes asegurarte de que la biblioteca externa esté registrada y sea accesible desde tu sistema. Además, la estructura de argumentos y el tipo de datos deben coincidir con la definición de la función o procedimiento externo.