Lưu ý: Hàm, phương pháp, đối tượng hoặc thuộc tính được mô tả trong chủ đề này sẽ bị vô hiệu hóa nếu Dịch vụ Biểu thức Phản lực của Microsoft đang chạy trong chế độ hộp cát, điều này ngăn không cho đánh giá các biểu thức không an toàn tiềm ẩn. Để biết thêm thông tin về chế độ hộp cát, hãy tìm kiếm "chế độ hộp cát" trong Trợ giúp.
Trả về chuỗi gắn với biến môi trường hệ điều hành. Không khả dụng trên Macintosh
Cú pháp
Environ( { envstring | số } )
Cú pháp hàm Environ có các đối số sau đây:
|
Đối số |
Mô tả |
|
ghen t thủy |
Không bắt buộc. Biểu thức chuỗi chứa tên của biến môi trường. |
|
number |
Không bắt buộc. Biểu thức số tương ứng với thứ tự số của chuỗi môi trường trong bảng chuỗi môi trường. Đối số dạng số có thể là bất kỳ biểu thức số nào, nhưng được làm tròn tới một số nguyên trước khi được đánh giá. |
Chú thích
Nếu không thể tìm thấy chuỗi ghen thiệp trong bảng chuỗi môi trường, thì trả về chuỗi có độ dài bằng 0 (""). Nếu không, Environ trả về văn bản được gán cho dấu chữ khắc đã xác định; nghĩa là, văn bản sau dấu bằng (=) trong bảng chuỗi môi trường cho biến môi trường đó.
Nếu bạn chỉ định số, chuỗi chiếm vị trí số đó trong bảng chuỗi môi trường sẽ được trả về. Trong trường hợp này, Environ trả về tất cả văn bản, bao gồm cả chữ ghen thiển. Nếu không có chuỗi môi trường ở vị trí được chỉ định, Environ sẽ trả về chuỗi có độ dài bằng 0.
Ví dụ
Lưu ý: Các ví dụ sau thể hiện cách sử dụng hàm này trong mô-đun Visual Basic for Applications (VBA). Để biết thêm thông tin về cách làm việc với VBA, chọn Tham khảo dành cho Nhà phát triển trong danh sách thả xuống cạnh Tìm kiếm, rồi nhập một hoặc nhiều từ vào hộp tìm kiếm.
Ví dụ này sử dụng hàm Environ để cung cấp số mục nhập và độ dài của câu lệnh PATH từ bảng chuỗi môi trường. Không khả dụng trên 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 IfLoop Until EnvString = ""If PathLen > 0 Then ' Display message. MsgBox MsgElse MsgBox "No PATH environment variable exists."End If
