Variables de entorno

[xavi]

Palabras clave: entorno, environ, variables
Autor: Sergio Alejandro Campos
Extraído de: EXCELeINFO



La necesidad surge al necesitar saber si existe una variable de entorno que devuelva el nombre del usuario "bonito" (que no existe) y no saber las posibles variables que se pueden consultar.

Sergio nos brinda este código (requiere un libro con una "Hoja1" y habilitado para macros

Código: [Seleccionar]

Sub MostrarVariables()
    'Declaramos variables
    '
    Dim i As Integer
    '
    i = 1
    '
    'Mientras el valor de Environ NO sea vacío, se obtiene el valor.
    While Environ(i) <> Empty
        '
        ActiveWorkbook.Sheets("Hoja1").Range("A8").Offset(i, 0).Value = Environ(i)
        '
        i = i + 1
        '
    Wend
    '
End Sub