ฟังก์ชัน Environ

สิ่งสำคัญ:  บทความนี้เป็นการแปลด้วยเครื่อง โปรดดู ข้อจำกัดความรับผิดชอบ โปรดดูบทความฉบับภาษาอังกฤษ ที่นี่ เพื่อใช้อ้างอิง

หมายเหตุ: ฟังก์ชัน วิธี วัตถุ หรือคุณสมบัติตามที่อธิบายในหัวข้อนี้ถูกปิดใช้งานถ้าบริการ Microsoft Jet นิพจน์กำลังทำงานในโหมด sandbox ซึ่งทำให้การประเมินนิพจน์ที่อาจไม่ปลอดภัย สำหรับข้อมูลเพิ่มเติมเกี่ยวกับโหมด sandbox ค้นหา "โหมด sandbox" ในวิธีใช้

ส่งกลับสตริงการเชื่อมโยงกับตัวแปรสภาพแวดล้อมของระบบปฏิบัติการ ไม่พร้อมใช้งานบน Macintosh

ไวยากรณ์

Environ ( { envstring | หมายเลข} )

ไวยากรณ์ของฟังก์ชันEnvironมีอาร์กิวเมนต์ต่อไปนี้:

อาร์กิวเมนต์

คำอธิบาย

envstring

เพิ่มเติม นิพจน์ที่ประกอบด้วยชื่อของตัวแปรสภาพแวดล้อม

ตัวเลข

เพิ่มเติม นิพจน์ที่สอดคล้องกับลำดับตัวเลขของสภาพแวดล้อมของสตริงในตารางสตริงที่สภาพแวดล้อม อาร์กิวเมนต์numberสามารถเป็นนิพจน์ แต่จะถูกปัดเศษให้เป็นจำนวนเต็มก่อนที่จะถูกประเมิน


ข้อสังเกต

ถ้าไม่พบenvstringในตารางสตริงที่สภาพแวดล้อม สตริงข้อความยาวเป็นศูนย์ ("") จะส่งกลับ มิฉะนั้นEnvironส่งกลับข้อความกำหนดให้กับระบุenvstring นั่นคือ ข้อความตามเท่ากับ (=) ลงชื่อเข้าใช้ตารางสตริงที่สภาพแวดล้อมตัวแปรที่สภาพแวดล้อม

ถ้าคุณระบุจำนวนจะส่งกลับสตริงที่มีตำแหน่งที่เป็นตัวเลขในตารางสตริงที่สภาพแวดล้อม ในกรณีนี้Environส่งกลับข้อความ รวมถึงenvstringทั้งหมด ถ้าไม่มีสตริงที่ไม่มีสภาพแวดล้อมอยู่ในตำแหน่งที่ระบุEnvironส่งกลับสตริงข้อความยาวเป็นศูนย์

ตัวอย่าง

หมายเหตุ: ตัวอย่างที่ติดตามสาธิตการใช้ฟังก์ชันนี้ใน Visual Basic for Applications (VBA) มอดูล สำหรับข้อมูลเพิ่มเติมเกี่ยวกับการทำงานกับ VBA เลือกอ้างอิงสำหรับนักพัฒนา ในรายการดรอปดาวน์ถัดจากค้นหา และใส่เงื่อนไขอย่าง น้อยหนึ่งในกล่องค้นหา

ตัวอย่างนี้ใช้ฟังก์ชันEnvironเพื่อใส่หมายเลขรายการและความยาวของคำชี้แจงPATHจากสตริงที่สภาพแวดล้อมของตาราง ไม่พร้อมใช้งานบน Macintosh

Dim EnvString, Indx, Msg, PathLen    ' Declare variables.
Indx = 1 ' Initialize index to 1.
Do
' Get environment variable.
EnvString = Environ(Indx)
' Check PATH entry.
If Left(EnvString, 5) = "PATH=" Then
' Get length.
PathLen = Len(Environ("PATH"))
Msg = "PATH entry = " & Indx & " and length = " _
& PathLen
Exit Do
Else
' Not PATH entry, so increment.
Indx = Indx + 1
End If
Loop Until EnvString = ""
If PathLen > 0 Then
' Display message.
MsgBox Msg
Else
MsgBox "No PATH environment variable exists."
End If

หมายเหตุ: ข้อจำกัดความรับผิดชอบของการแปลด้วยเครื่อง: บทความนี้มีการแปลด้วยระบบคอมพิวเตอร์โดยไม่มีการดำเนินการโดยบุคคล Microsoft จัดให้มีการแปลด้วยเครื่องนี้เพื่อช่วยให้ผู้ใช้ที่ไม่ได้พูดภาษาอังกฤษสามารถใช้ประโยชน์จากเนื้อหาเกี่ยวกับผลิตภัณฑ์ บริการและเทคโนโลยีของ Microsoft เนื่องจากบทความมีการแปลด้วยเครื่อง อาจมีข้อผิดพลาดด้านคำศัพท์ ไวยากรณ์หรือรูปประโยค

ขยายทักษะของคุณ
สำรวจการฝึกอบรม
รับฟีเจอร์ใหม่ก่อนใคร
เข้าร่วม Office Insider

ข้อมูลนี้เป็นประโยชน์หรือไม่

ขอบคุณสำหรับคำติชมของคุณ!

ขอขอบคุณสำหรับคำติชมของคุณ! เราคิดว่าอาจเป็นประโยชน์ที่จะให้คุณได้ติดต่อกับหนึ่งในตัวแทนฝ่ายสนับสนุน Office ของเรา

×