पर्यावरण विवरण
ऑपरेटिंग सिस्टम पर्यावरण चर का मान देता है।
सरल वातावरण उदाहरण
| 123 | उप पर्यावरण_उदाहरण ()MsgBox Environ ("उपयोगकर्ता नाम")अंत उप |
यह लॉग इन किया हुआ वर्तमान उपयोगकर्ता नाम लौटाएगा।
| 123 | उप पर्यावरण_उदाहरण ()MsgBox Environ ("कंप्यूटर का नाम")अंत उप |
यह कंप्यूटर का नाम लौटाएगा।
पर्यावरण सिंटेक्स
VBA संपादक में, आप Environ फ़ंक्शन के सिंटैक्स को देखने के लिए "Environ(") टाइप कर सकते हैं:
Environ फ़ंक्शन में एक तर्क होता है:
अभिव्यक्ति: पर्यावरण-स्ट्रिंग तालिका में पर्यावरण स्ट्रिंग के संख्यात्मक क्रम के अनुरूप एक पर्यावरण चर (स्ट्रिंग) या संख्यात्मक अभिव्यक्ति (1 से 255) का नाम।
एक्सेल वीबीए एनवायरन फंक्शन के उदाहरण
| 1 | संदेशबॉक्स वातावरण(1) |
परिणाम: "ALLUSERSPROFILE=C:\ProgramData"
| 1 | संदेशबॉक्स वातावरण(0) |
परिणाम: रन-टाइम त्रुटि '5'
| 1 | संदेशबॉक्स वातावरण(256) |
परिणाम: रन-टाइम त्रुटि '5'
| 1 | MsgBox Environ ("AllUsersProfile") |
परिणाम: "सी: \ प्रोग्रामडेटा"
आपके कंप्यूटर पर परिभाषित सभी पर्यावरण चर देखने के लिए, आप निम्न कोड का उपयोग कर सकते हैं।
| 123456789101112131415161718192021222324 | उप सूची AllEnvironVariables ()स्ट्रिंग के रूप में मंद strEnvironडिम वारस्प्लिट के रूप में वैरिएंटDim i as Integer, nRow as Integerएनआरओ = 1रेंज ("ए 1")। मान = "इंडेक्स"रेंज ("बी 1")। मान = "पर्यावरण चर नाम"रेंज ("सी 1")। मान = "पर्यावरण परिवर्तनीय मूल्य"रेंज ("ए: सी")। कॉलम। ऑटोफिटरेंज ("ए 1: सी 1")। फ़ॉन्ट। बोल्ड = ट्रूएनआरओ = 2मैं = 1 से 255 . के लिएstrEnviron = पर्यावरण (i)अगर strEnviron "" तोVarSplit = स्प्लिट (strEnviron, "=")रेंज ("ए" और nRow)। मान = iरेंज ("बी" और nRow)। मान = VarSplit (0)रेंज ("सी" और nRow)। मान = VarSplit(1)nRow = nRow + 1अगर अंतअगलाअंत उप |
फिर, आप निम्न के रूप में सभी पर्यावरण चर देख सकते हैं।
परिणाम प्रणाली द्वारा भिन्न हो सकते हैं। क्योंकि डिफ़ॉल्ट पर्यावरण चर के अलावा कुछ कस्टम पर्यावरण चर हैं।
किसी भी स्ट्रिंग के लिए जो पर्यावरण चर की सूची में मौजूद नहीं है, यह खाली स्ट्रिंग ("") लौटाएगा।
| 1 | MsgBox Environ ("MyEnviron") |
नतीजा: ""
