Ympäristö Kuvaus
Palauttaa käyttöjärjestelmän ympäristömuuttujan arvon.
Yksinkertaisia esimerkkejä ympäristöstä
123 | Alaympäristö_esimerkki ()MsgBox Environ ("Käyttäjänimi")End Sub |
Tämä palauttaa kirjautuneen käyttäjänimen.
123 | Alaympäristö_esimerkki ()MsgBox Environ ("ComputerName")End Sub |
Tämä palauttaa tietokoneen nimen.
Ympäristön syntaksi
VBA -editorissa voit kirjoittaa Environ () nähdäksesi Environ -toiminnon syntaksin:
Environ -funktio sisältää argumentin:
Ilmaisu: Ympäristömuuttujan (merkkijono) tai numeerisen lausekkeen (1–255) nimi, joka vastaa ympäristömerkkijonon taulukon ympäristömerkkijonon numeerista järjestystä.
Esimerkkejä Excel VBA -ympäristötoiminnosta
1 | MsgBox -ympäristö (1) |
Tulos: “ALLUSERSPROFILE = C: \ ProgramData”
1 | MsgBox -ympäristö (0) |
Tulos: Suorituksenaikainen virhe '5'
1 | MsgBox Environ (256) |
Tulos: Suorituksenaikainen virhe '5'
1 | MsgBox Environ ("AllUsersProfile") |
Tulos: “C: \ ProgramData”
Jos haluat nähdä kaikki tietokoneellasi määritellyt ympäristömuuttujat, voit käyttää seuraavaa koodia.
123456789101112131415161718192021222324 | AlaluetteloKaikkiYmpäristömuuttujat ()Dim strEnviron merkkijononaDim VarSplit VarianttinaDim i kokonaislukuna, nRow kokonaislukunanRivi = 1Alue ("A1"). Arvo = "Indeksi"Alue ("B1"). Arvo = "Ympäristömuuttujan nimi"Alue ("C1"). Arvo = "Ympäristömuuttujan arvo"Alue ("A: C"). Sarakkeet.AutoFitAlue ("A1: C1"). Font.Bold = TosinRivi = 2I = 1 - 255strEnviron = Ympäristö (i)Jos strEnviron "" SittenVarSplit = Jaettu (strEnviron, "=")Alue ("A" & nRow) .Arvo = iAlue ("B" & nRow) .Arvo = VarSplit (0)Alue ("C" & nRow) .Arvo = VarSplit (1)nRivi = nRivi + 1Loppu JosSeuraavaEnd Sub |
Sitten näet kaikki ympäristömuuttujat seuraavasti.
Tulos voi vaihdella järjestelmän mukaan. Koska oletusympäristömuuttujien lisäksi on joitain mukautettuja ympäristömuuttujia.
Jos merkkijono ei ole ympäristömuuttujien luettelossa, se palauttaa tyhjän merkkijonon (“”).
1 | MsgBox Environ ("MyEnviron") |
Tulos: ""