VBA – Funções de Ambiente

Written by

Mel Jenkins

Reviewed by

Steve Rynearson

Translated by

Daniel Caramello

Last updated on September 1, 2023

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.

lista variaveis ambiente

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: “”

vba-free-addin

Exemplos de Add-ins de Códigos VBA

Acesse facilmente todos os exemplos de código que se encontram em nosso site.

Simply navigate to the menu, click, and the code will be inserted directly into your module. .xlam add-in.

(Nenhuma instalação necessária!)

Baixe de Graça

Retornar aos Exemplos de Códigos VBA