Descrizione dell'ambiente
Restituisce il valore di una variabile di ambiente del sistema operativo.
Esempi semplici di ambiente
123 | Sub Ambiente_Esempio()MsgBox Ambiente("NomeUtente")Fine sottotitolo |
Ciò restituirà il nome utente corrente connesso.
123 | Sub Ambiente_Esempio()MsgBox Ambiente("NomeComputer")Fine sottotitolo |
Questo restituirà il nome del computer.
Sintassi dell'ambiente
Nell'editor VBA, puoi digitare "Environ(" per vedere la sintassi per la funzione Environ:
La funzione Ambiente contiene un argomento:
Espressione: Nome di una variabile d'ambiente (stringa) o Espressione numerica (da 1 a 255) corrispondente all'ordine numerico della stringa d'ambiente nella tabella stringhe d'ambiente.
Esempi di funzione ambiente VBA di Excel
1 | Ambiente MsgBox(1) |
Risultato: "ALLUSERSPROFILE=C:\ProgramData"
1 | Ambiente MsgBox(0) |
Risultato: errore di runtime "5"
1 | Ambiente MsgBox(256) |
Risultato: errore di runtime "5"
1 | MsgBox Ambiente("ProfiloTuttiUtenti") |
Risultato: "C:\ProgramData"
Per vedere tutte le variabili di ambiente definite sul tuo computer, puoi utilizzare il codice seguente.
123456789101112131415161718192021222324 | Sub ListAllVariabili d'ambiente()Dim strEnviron As StringDim VarSplit As VariantDim i As Integer, nRow As IntegernRiga = 1Intervallo ("A1"). Valore = "Indice"Range("B1").Value = "Nome variabile d'ambiente"Intervallo ("C1"). Valore = "Valore variabile d'ambiente"Intervallo("A:C").Colonne.Adattamento automaticoIntervallo("A1:C1").Font.Bold = TruenRiga = 2Per i = 1 a 255strAmbiente = Ambiente(i)Se strEnviron "" AlloraVarSplit = Split(strEnviron, "=")Intervallo("A" & nRiga). Valore = iRange("B" & nRow).Value = VarSplit(0)Range("C" & nRow).Value = VarSplit(1)nRiga = nRiga + 1Finisci seProssimoFine sottotitolo |
Quindi, puoi vedere tutte le variabili di ambiente come segue.
Il risultato può variare in base al sistema. Perché ci sono alcune variabili di ambiente personalizzate oltre alle variabili di ambiente predefinite.
Per qualsiasi stringa che non esiste nell'elenco delle variabili di ambiente, restituirà una stringa vuota ("").
1 | MsgBox Ambiente("MioAmbiente") |
Risultato: “”