VBA – Funções de Ambiente

Environ Descrição

Retorna o valor de uma variável de ambiente do sistema operacional.

Exemplos Simples de Environ

Sub Environ_Exemplo()
    MsgBox Environ("UserName")
End Sub

Isso retornará o nome do usuário atual conectado.

Sub Environ_Exemplo()
    MsgBox Environ("ComputerName")
End Sub

Isso retornará o nome do computador.

Sintaxe de Environ

No editor VBA, você pode digitar “Environ(” para ver a sintaxe da função Environ:

A função Environ contém um argumento:

Expressão: Nome de uma variável de ambiente (string) ou expressão numérica (1 a 255) correspondente à ordem numérica da string de ambiente na tabela de strings de ambiente.

Exemplos da Função Environ do Excel VBA

MsgBox Environ(1)

Resultado: “ALLUSERSPROFILE=C:\ProgramData”

MsgBox Environ(0)

Resultado: Erro de tempo de execução ‘5’

MsgBox Environ(256)

Result: Erro de tempo de execução ‘5’

MsgBox Environ("AllUsersProfile")

Resultado: “C:\ProgramData”

Para ver todas as variáveis de ambiente definidas em seu computador, você pode usar o código a seguir

Sub ListarTodasVariaveisAmbiente()
    Dim strAmbiente As String
    Dim VarSplit As Variant
    Dim i As Integer, nLinha As Integer
    
    nLinha = 1
    Range("A1").Value = "Índice"
    Range("B1").Value = "Nome da Variável de Ambiente"
    Range("C1").Value = "Valor da Variável de Ambiente"
    Range("A:C").Columns.AutoFit
    Range("A1:C1").Font.Bold = True
    nLinha = 2
    
    For i = 1 To 255
        strAmbiente = Environ(i)
        If strAmbiente <> "" Then
            VarSplit = Split(strAmbiente, "=")
            Range("A" & nLinha).Value = i
            Range("B" & nLinha).Value = VarSplit(0)
            Range("C" & nLinha).Value = VarSplit(1)
            nLinha = nLinha + 1
        End If
    Next
End Sub

Em seguida, você pode ver todas as variáveis de ambiente da seguinte forma.

O resultado pode variar de acordo com o sistema. Porque há algumas variáveis de ambiente personalizadas além das variáveis de ambiente padrão.

Para qualquer cadeia de caracteres que não exista na lista de variáveis de ambiente, ela retornará uma cadeia de caracteres vazia (“”).

MsgBox Environ("MeuAmbiente")

Resultado: “”