Descrição Environ
Retorna o valor de uma variável de ambiente do sistema operacional.
Exemplos de ambiente simples
123 | Sub Environ_Example ()MsgBox Environ ("UserName")End Sub |
Isso retornará o nome do usuário atual conectado.
123 | Sub Environ_Example ()MsgBox Environ ("ComputerName")End Sub |
Isso retornará o nome do computador.
Sintaxe 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 string de ambiente.
Exemplos de função de ambiente VBA do Excel
1 | MsgBox Environ (1) |
Resultado: “ALLUSERSPROFILE = C: \ ProgramData”
1 | MsgBox Environ (0) |
Resultado: Erro em tempo de execução '5'
1 | MsgBox Environ (256) |
Resultado: Erro em tempo de execução '5'
1 | 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.
123456789101112131415161718192021222324 | Sub ListAllEnvironVariables ()Dim strEnviron As StringDim VarSplit As VariantDim i As Integer, nRow As IntegernRow = 1Intervalo ("A1"). Valor = "Índice"Intervalo ("B1"). Valor = "Nome da variável de ambiente"Intervalo ("C1"). Valor = "Valor da variável de ambiente"Intervalo ("A: C"). Colunas.AutoFitIntervalo ("A1: C1"). Font.Bold = TruenRow = 2Para i = 1 a 255strEnviron = Environ (i)If strEnviron "" EntãoVarSplit = Split (strEnviron, "=")Intervalo ("A" & nRow) .Value = iIntervalo ("B" & nRow) .Value = VarSplit (0)Intervalo ("C" & nRow) .Value = VarSplit (1)nRow = nRow + 1Fim sePróximoEnd Sub |
Então, você pode ver todas as variáveis de ambiente da seguinte forma.
O resultado pode variar de acordo com o sistema. Porque existem algumas variáveis de ambiente personalizadas além das variáveis de ambiente padrão.
Para qualquer string que não exista na lista de variáveis de ambiente, ele retornará uma string vazia (“”).
1 | MsgBox Environ ("MyEnviron") |
Resultado: “”