Mô tả môi trường
Trả về giá trị của một biến môi trường hệ điều hành.
Ví dụ về môi trường đơn giản
| 123 | Môi trường phụ_Example ()Môi trường MsgBox ("Tên người dùng")Kết thúc Sub |
Thao tác này sẽ trả về tên người dùng hiện tại đã đăng nhập.
| 123 | Môi trường phụ_Example ()Môi trường MsgBox ("Tên máy tính")Kết thúc Sub |
Điều này sẽ trả về tên máy tính.
Cú pháp môi trường
Trong VBA Editor, bạn có thể nhập “Environ (” để xem cú pháp của hàm Environ:
Hàm Environ chứa một đối số:
Biểu hiện: Tên của một biến môi trường (chuỗi) hoặc Biểu thức số (1 đến 255) 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.
Ví dụ về Hàm môi trường VBA trong Excel
| 1 | Môi trường MsgBox (1) |
Kết quả: “ALLUSERSPROFILE = C: \ ProgramData”
| 1 | Môi trường MsgBox (0) |
Kết quả: Lỗi thời gian chạy '5'
| 1 | Môi trường MsgBox (256) |
Kết quả: Lỗi thời gian chạy '5'
| 1 | Môi trường MsgBox ("AllUsersProfile") |
Kết quả: “C: \ ProgramData”
Để xem tất cả các biến môi trường được xác định trên máy tính của bạn, bạn có thể sử dụng mã sau.
| 123456789101112131415161718192021222324 | Danh sách phụAllEnvironVariables ()Dim strEnviron As StringDim VarSplit As VariantDim i As Integer, nRow As IntegernRow = 1Phạm vi ("A1"). Giá trị = "Chỉ mục"Phạm vi ("B1"). Giá trị = "Tên biến môi trường"Phạm vi ("C1"). Giá trị = "Giá trị biến môi trường"Phạm vi ("A: C"). Cột.AutoFitPhạm vi ("A1: C1"). Font.Bold = TruenRow = 2Đối với i = 1 đến 255strEnviron = Môi trường (i)If strEnviron "" Sau đóVarSplit = Tách (strEnviron, "=")Phạm vi ("A" & nRow) .Value = iPhạm vi ("B" & nRow) .Value = VarSplit (0)Phạm vi ("C" & nRow) .Value = VarSplit (1)nRow = nRow + 1Kết thúc nếuKế tiếpKết thúc Sub |
Sau đó, bạn có thể thấy tất cả các biến môi trường như sau.
Kết quả có thể khác nhau tùy theo hệ thống. Bởi vì có một số biến môi trường tùy chỉnh bên cạnh các biến môi trường mặc định.
Đối với bất kỳ chuỗi nào không tồn tại trong danh sách các biến môi trường, chuỗi đó sẽ trả về chuỗi trống (“”).
| 1 | Môi trường MsgBox ("Môi trường của tôi") |
Kết quả: ""
