Descripción del entorno
Devuelve el valor de una variable de entorno del sistema operativo.
Ejemplos de entornos simples
123 | Sub Environ_Example ()MsgBox Environ ("Nombre de usuario")End Sub |
Esto devolverá el nombre de usuario actual conectado.
123 | Sub Environ_Example ()MsgBox Environ ("ComputerName")End Sub |
Esto devolverá el nombre de la computadora.
Sintaxis del entorno
En el Editor de VBA, puede escribir "Environ (" para ver la sintaxis de la función Environ:
La función Environ contiene un argumento:
Expresión: Nombre de una variable de entorno (cadena) o expresión numérica (1 a 255) correspondiente al orden numérico de la cadena de entorno en la tabla de cadenas de entorno.
Ejemplos de función de entorno de Excel VBA
1 | MsgBox Environ (1) |
Resultado: "ALLUSERSPROFILE = C: \ ProgramData"
1 | MsgBox Environ (0) |
Resultado: Error de tiempo de ejecución "5"
1 | MsgBox Environ (256) |
Resultado: Error de tiempo de ejecución "5"
1 | MsgBox Environ ("AllUsersProfile") |
Resultado: "C: \ ProgramData"
Para ver todas las variables de entorno definidas en su computadora, puede usar el siguiente código.
123456789101112131415161718192021222324 | Sub ListAllEnvironVariables ()Dim strEnviron como cadenaDim VarSplit como varianteDim i como entero, nRow como enteronRow = 1Rango ("A1"). Valor = "Índice"Rango ("B1"). Valor = "Nombre de variable de entorno"Rango ("C1"). Valor = "Valor de variable de entorno"Rango ("A: C"). Columnas.Ajuste automáticoRango ("A1: C1"). Font.Bold = TruenRow = 2Para i = 1 a 255strEnviron = Entorno (i)Si strEnviron "" EntoncesVarSplit = Dividir (strEnviron, "=")Rango ("A" & nRow) .Value = iRango ("B" y nRow) .Value = VarSplit (0)Rango ("C" & nRow) .Value = VarSplit (1)nRow = nRow + 1Terminara sipróximoEnd Sub |
Luego, puede ver todas las variables de entorno de la siguiente manera.
El resultado puede variar según el sistema. Porque hay algunas variables de entorno personalizadas además de las variables de entorno predeterminadas.
Para cualquier cadena que no exista en la lista de variables de entorno, devolverá una cadena vacía ("").
1 | MsgBox Environ ("MyEnviron") |
Resultado: ""