Környezet leírása
Egy operációs rendszer környezeti változó értékét adja vissza.
Egyszerű környezeti példák
123 | Alkörnyezet_Példa ()MsgBox Environ ("Felhasználónév")End Sub |
Ez visszaadja az aktuális bejelentkezett felhasználónevet.
123 | Alkörnyezet_Példa ()MsgBox Environ ("Számítógépnév")End Sub |
Ez visszaadja a számítógép nevét.
Environ szintaxis
A VBA szerkesztőben begépelheti az „Environ (”) parancsot a környezeti funkció szintaxisának megtekintéséhez:
Az Environ függvény egy érvet tartalmaz:
Kifejezés: A környezeti változó (karakterlánc) vagy a numerikus kifejezés (1–255) neve, amely megfelel a környezeti karakterlánc táblázatában szereplő környezeti karakterlánc sorrendjének.
Példák az Excel VBA környezeti funkciójára
1 | MsgBox Environ (1) |
Eredmény: „ALLUSERSPROFILE = C: \ ProgramData”
1 | MsgBox Environ (0) |
Eredmény: „5” futásidejű hiba
1 | MsgBox Environ (256) |
Eredmény: „5” futásidejű hiba
1 | MsgBox Environ ("AllUsersProfile") |
Eredmény: „C: \ ProgramData”
A számítógépen megadott összes környezeti változó megtekintéséhez használja a következő kódot.
123456789101112131415161718192021222324 | All ListAllEnvironVariables ()Dim strEnviron mint karakterláncDim VarSplit mint változatDim i Integer, nRow As Integern Sor = 1Tartomány ("A1"). Érték = "Index"Tartomány ("B1"). Érték = "Környezeti változó neve"Tartomány ("C1"). Érték = "Környezeti változó értéke"Tartomány ("A: C"). Oszlopok.AutoFitTartomány ("A1: C1"). Font.Bold = Igazn sor = 2I = 1 és 255 közöttstrEnviron = Környezet (i)Ha strEnviron "" AkkorVarSplit = Felosztás (strEnviron, "=")Tartomány ("A" & nRow) .Érték = iTartomány ("B" & nRow) .Value = VarSplit (0)Tartomány ("C" & nRow). Érték = VarSplit (1)n sor = n sor + 1Vége HaKövetkezőEnd Sub |
Ezután az összes környezeti változót a következőképpen láthatja.
Az eredmény rendszerenként változhat. Mivel az alapértelmezett környezeti változókon kívül vannak egyéni környezeti változók.
Minden olyan karakterlánc esetében, amely nem létezik a környezeti változók listájában, üres karakterláncot („”) ad vissza.
1 | MsgBox Environ ("MyEnviron") |
Eredmény: ""