Σημείωση
Η συνάρτηση, η μέθοδος, το αντικείμενο ή η ιδιότητα που περιγράφεται σε αυτό το θέμα είναι απενεργοποιημένη εάν η υπηρεσία Microsoft Jet Expression Service εκτελείται σε κατάσταση λειτουργίας φίλτρου, γεγονός που αποτρέπει την αξιολόγηση ενδεχομένως μη ασφαλών εκφράσεων. Για περισσότερες πληροφορίες σχετικά με τη λειτουργία φίλτρου, αναζητήστε τη "λειτουργία φίλτρου" στη Βοήθεια.
Επιστρέφει τη συμβολοσειρά που σχετίζεται με μια μεταβλητή περιβάλλοντος λειτουργικού συστήματος. Δεν διατίθεται σε Macintosh
Σύνταξη
Environ( { envstring | number } )
Η σύνταξη της συνάρτησης Environ περιλαμβάνει τα εξής ορίσματα:
| Επιχείρημα | Περιγραφή |
|---|---|
| envstring | Προαιρετικό. Παράσταση συμβολοσειράς που περιέχει το όνομα μιας μεταβλητής περιβάλλοντος. |
| αριθμός | Προαιρετικό. Αριθμητική παράσταση που αντιστοιχεί στην αριθμητική σειρά της συμβολοσειράς περιβάλλοντος στον πίνακα συμβολοσειράς περιβάλλοντος. Το όρισμα αριθμός μπορεί να είναι οποιαδήποτε αριθμητική παράσταση, αλλά στρογγυλοποιείται σε ακέραιο αριθμό πριν από τον υπολογισμό του. |
Παρατηρήσεις
Εάν η συμβολοσειρά envstring δεν μπορεί να βρεθεί στον πίνακα συμβολοσειράς περιβάλλοντος, επιστρέφεται μια συμβολοσειρά μηδενικού μήκους (""). Διαφορετικά, το Environ επιστρέφει το κείμενο που έχει εκχωρηθεί στην καθορισμένη συμβολοσειρά. Δηλαδή, το κείμενο που ακολουθεί το σύμβολο ίσον (=) στον πίνακα συμβολοσειράς περιβάλλοντος για αυτήν τη μεταβλητή περιβάλλοντος.
Εάν καθορίσετε αριθμό, επιστρέφεται η συμβολοσειρά που καταλαμβάνει αυτή την αριθμητική θέση στον πίνακα συμβολοσειράς περιβάλλοντος. Σε αυτήν την περίπτωση, το Environ επιστρέφει ολόκληρο το κείμενο, συμπεριλαμβανομένης της συμβολοσειράς περιβάλλοντος. Εάν δεν υπάρχει συμβολοσειρά περιβάλλοντος στην καθορισμένη θέση, το 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