En VBA (Visual Basic for Applications), la función GetSetting se usa para recuperar valores de configuración de una aplicación que almacena sus settings en el registro de Windows bajo una clave especificada. La función GetSetting es útil para recuperar valores de preferencias o configuraciones que el usuario o la aplicación hayan definido previamente usando la función SaveSetting.

La sintaxis básica

valor = GetSetting(appname, section, key, [default])

• appname: El nombre de tu aplicación. Es importante que sea un nombre único para evitar conflictos con otras aplicaciones en el registro.
• section: La sección bajo la cual se guarda la configuración. Esta sección actúa como una subcarpeta dentro del registro.
• key: La clave específica para el valor que estás intentando recuperar.
• default (opcional): El valor que se devuelve si la section y la key no existen.

Ejemplo

Sub ObtenerConfiguracion()
    ' Define los nombres de la aplicación, sección y clave
    Dim app As String
    Dim section As String
    Dim key As String
    Dim valorDefault As String

    app = "MiAplicacionVBA"
    section = "Preferencias"
    key = "ColorFondo"
    valorDefault = "Blanco"  ' Este es el valor por defecto si "ColorFondo" no existe

    ' Obtiene el valor del color de fondo
    Dim colorFondo As String
    colorFondo = GetSetting(app, section, key, valorDefault)

    ' Muestra el valor recuperado
    MsgBox "El color de fondo configurado es: " & colorFondo
End Sub

Es importante recordar que para poder recuperar un valor con GetSetting, primero debes haberlo guardado con la función SaveSetting. Aquí te muestro cómo guardar un valor antes de recuperarlo:

Sub GuardarConfiguracion()
    ' Define los nombres de la aplicación, sección, clave y el valor a guardar
    Dim app As String
    Dim section As String
    Dim key As String
    Dim valor As String

    app = "MiAplicacionVBA"
    section = "Preferencias"
    key = "ColorFondo"
    valor = "Azul"

    ' Guarda el valor de la configuración
    SaveSetting app, section, key, valor
End Sub

Con este ejemplo, primero debes ejecutar GuardarConfiguracion para guardar un valor de configuración, y luego puedes usar ObtenerConfiguracion para recuperarlo.

Conoce nuestra tienda

Ver más productos

Mejora tu nivel y logra tus objetivo

Excel

Access

Power BI

Ayúdanos a hacer crecer el proyecto