Vides apraksts
Atgriež operētājsistēmas vides mainīgā vērtību.
Vienkārši vides piemēri
123 | Apakšvide_Piemērs ()MsgBox Environ ("Lietotājvārds")Beigu apakš |
Tādējādi tiks atgriezts pašreizējais pieteicies lietotājvārds.
123 | Apakšvide_Piemērs ()MsgBox Environ ("ComputerName")Beigu apakš |
Tas atgriezīs datora nosaukumu.
Vides sintakse
VBA redaktorā varat ierakstīt “Environ (”), lai skatītu vides funkcijas sintaksi:
Funkcija Environ satur šādu argumentu:
Izteiksme: Vides mainīgā (virknes) nosaukums vai ciparu izteiksme (no 1 līdz 255), kas atbilst vides virknes ciparu secībai vides virkņu tabulā.
Excel VBA vides funkcijas piemēri
1 | MsgBox vide (1) |
Rezultāts: “ALLUSERSPROFILE = C: \ ProgramData”
1 | MsgBox vide (0) |
Rezultāts: izpildlaika kļūda “5”
1 | MsgBox Environ (256) |
Rezultāts: izpildlaika kļūda “5”
1 | MsgBox Environ ("AllUsersProfile") |
Rezultāts: “C: \ ProgramData”
Lai redzētu visus datorā definētos vides mainīgos, varat izmantot šādu kodu.
123456789101112131415161718192021222324 | ApakšsarakstsVisi vides mainīgie ()Dim strEnviron kā virkneDim VarSplit kā variantsDim i As Integer, nRow As IntegernRinda = 1Diapazons ("A1"). Vērtība = "Indekss"Diapazons ("B1"). Vērtība = "Vides mainīgā nosaukums"Diapazons ("C1"). Vērtība = "Vides mainīgā vērtība"Diapazons ("A: C"). Kolonnas.AutoFitDiapazons ("A1: C1"). Fonts. Bold = patiesanRinda = 2Ja i = 1 līdz 255strEnviron = Vide (i)Ja strEnviron "" TadVarSplit = Sadalīt (strEnviron, "=")Diapazons ("A" & nRinda). Vērtība = iDiapazons ("B" & nRow). Vērtība = VarSplit (0)Diapazons ("C" & nRow). Vērtība = VarSplit (1)nRinda = nRinda + 1Beigas JaNākamaisBeigu apakš |
Pēc tam visus vides mainīgos varat redzēt šādi.
Rezultāts var atšķirties atkarībā no sistēmas. Tā kā bez noklusējuma vides mainīgajiem ir daži pielāgoti vides mainīgie.
Jebkurai virknei, kas nepastāv vides mainīgo sarakstā, tā atgriezīs tukšu virkni (“”).
1 | MsgBox Environ ("MyEnviron") |
Rezultāts: “”