Çevre Açıklama
Bir işletim sistemi ortam değişkeninin değerini döndürür.
Basit Çevre Örnekleri
123 | Alt Ortam_Örnek()MsgBox Environ("KullanıcıAdı")Alt Bitiş |
Bu, oturum açmış olan mevcut kullanıcı adını döndürür.
123 | Alt Ortam_Örnek()MsgBox Environ("BilgisayarAdı")Alt Bitiş |
Bu, bilgisayar adını döndürür.
Çevre Sözdizimi
VBA Düzenleyicide, Environ İşlevinin sözdizimini görmek için “Environ(” yazabilirsiniz:
Environ işlevi bir bağımsız değişken içerir:
İfade: Ortam dizesi tablosundaki ortam dizesinin sayısal sırasına karşılık gelen bir ortam değişkeninin (dize) veya Sayısal ifadenin (1 - 255) adı.
Excel VBA Environ İşlevi Örnekleri
1 | MsgBox Ortamı(1) |
Sonuç: “ALLUSERSPROFILE=C:\ProgramData”
1 | MsgBox Ortamı(0) |
Sonuç: Çalışma Zamanı Hatası '5'
1 | MsgBox Ortamı(256) |
Sonuç: Çalışma Zamanı Hatası '5'
1 | MsgBox Environ("AllUsersProfile") |
Sonuç: “C:\ProgramData”
Bilgisayarınızda tanımlanan tüm ortam değişkenlerini görmek için aşağıdaki kodu kullanabilirsiniz.
123456789101112131415161718192021222324 | Alt ListeAllEnvironVariables()Dim strEnviron As StringDim VarSplit Varyant OlarakDim i Integer, nRow As IntegernSatır = 1Aralık("A1").Value = "Dizin"Range("B1").Value = "Ortam Değişkeni Adı"Range("C1").Value = "Ortam Değişken Değeri"Range("A:C").Columns.AutoFitRange("A1:C1").Font.Bold = TruenSatır = 2i = 1 ila 255 içinstrEnviron = Çevre(i)Eğer strEnviron "" iseVarSplit = Böl(strEnviron, "=")Aralık("A" & nRow).Value = iAralık("B" & nRow).Value = VarSplit(0)Aralık("C" & nRow).Value = VarSplit(1)nRow = nRow + 1BitirSonrakiAlt Bitiş |
Ardından, tüm ortam değişkenlerini aşağıdaki gibi görebilirsiniz.
Sonuç sisteme göre değişebilir. Çünkü varsayılan ortam değişkenlerinin yanında bazı özel ortam değişkenleri de vardır.
Ortam değişkenleri listesinde bulunmayan herhangi bir dize için boş dize ("") döndürür.
1 | MsgBox Environ("MyEnviron") |
Sonuç: ""