Περιγραφή περιβάλλοντος
Επιστρέφει την τιμή μιας μεταβλητής περιβάλλοντος λειτουργικού συστήματος.
Απλά Παραδείγματα Περιβάλλοντος
| 123 | Sub Environ_Example ()MsgBox Environ ("Όνομα χρήστη")Τέλος υπο |
Αυτό θα επιστρέψει το τρέχον όνομα χρήστη που έχετε συνδεθεί.
| 123 | Sub Environ_Example ()MsgBox Environ ("Όνομα υπολογιστή")Τέλος υπο |
Αυτό θα επιστρέψει το όνομα του υπολογιστή.
Environ Syntax
Στο πρόγραμμα επεξεργασίας VBA, μπορείτε να πληκτρολογήσετε "Environ (" για να δείτε τη σύνταξη για τη συνάρτηση Environ:
Η συνάρτηση Environ περιέχει ένα όρισμα:
Εκφραση: Όνομα μεταβλητής περιβάλλοντος (συμβολοσειρά) ή Αριθμητική έκφραση (1 έως 255) που αντιστοιχεί στην αριθμητική σειρά της συμβολοσειράς περιβάλλοντος στον πίνακα συμβολοσειράς περιβάλλοντος.
Παραδείγματα της συνάρτησης Excel VBA Environ
| 1 | MsgBox Environ (1) |
Αποτέλεσμα: "ALLUSERSPROFILE = C: \ ProgramData"
| 1 | MsgBox Environ (0) |
Αποτέλεσμα: Σφάλμα χρόνου εκτέλεσης «5»
| 1 | MsgBox Environ (256) |
Αποτέλεσμα: Σφάλμα χρόνου εκτέλεσης «5»
| 1 | MsgBox Environ ("AllUsersProfile") |
Αποτέλεσμα: "C: \ ProgramData"
Για να δείτε όλες τις μεταβλητές περιβάλλοντος που έχουν οριστεί στον υπολογιστή σας, μπορείτε να χρησιμοποιήσετε τον ακόλουθο κώδικα.
| 123456789101112131415161718192021222324 | Sub ListAllEnvironVariables ()Dim strEnviron As StringDim VarSplit As VariantDim i As Integer, nRow As IntegernRow = 1Εύρος ("A1"). Τιμή = "Ευρετήριο"Εύρος ("B1"). Τιμή = "Όνομα μεταβλητής περιβάλλοντος"Εύρος ("C1"). Τιμή = "Περιβαλλοντική μεταβλητή τιμή"Εύρος ("A: C"). Columns.AutoFitΕύρος ("A1: C1"). Font.Bold = TruenRow = 2Για i = 1 έως 255strEnviron = Environ (i)Εάν strEnviron "" ΤότεVarSplit = Διαχωρισμός (strEnviron, "=")Εύρος ("A" & nRow). Αξία = iΕύρος ("B" & nRow) .Value = VarSplit (0)Εύρος ("C" & nRow) .Value = VarSplit (1)nRow = nRow + 1Τέλος εανΕπόμενοΤέλος υπο |
Στη συνέχεια, μπορείτε να δείτε όλες τις μεταβλητές περιβάλλοντος ως εξής.
Το αποτέλεσμα μπορεί να διαφέρει ανάλογα με το σύστημα. Επειδή υπάρχουν ορισμένες προσαρμοσμένες μεταβλητές περιβάλλοντος εκτός από τις προεπιλεγμένες μεταβλητές περιβάλλοντος.
Για οποιαδήποτε συμβολοσειρά που δεν υπάρχει στη λίστα μεταβλητών περιβάλλοντος, θα επιστρέψει κενή συμβολοσειρά ("").
| 1 | MsgBox Environ ("MyEnviron") |
Αποτέλεσμα: “”
