Échantillons de code de fonction d'Environ pour VBA

comme mentionné par Eric, vous pouvez utiliser environ avec ComputerName argument comme suit:

MsgBox Environ("USERNAME")

quelques informations supplémentaires qui pourraient vous être utiles:

1. Les arguments sont sensible à la casse.
2. il existe une version de chaîne de caractères légèrement plus rapide de la fonction Environ. Pour l'invoquer, utilisez un signe dollar. (Ex: Environ$("username")) cela vous fera un petit gain de performance.
3. vous pouvez tout récupérer Variables D'Environnement Du Système en utilisant cette fonction. (Et pas seulement de nom d'utilisateur.) Une utilisation courante est d'obtenir la valeur" ComputerName " pour voir sur quel ordinateur l'utilisateur se connecte.
4. je ne le recommande pas pour la plupart des situations, mais il peut être parfois utile de savoir que vous pouvez également accéder aux variables avec un index. Si vous utilisez cette syntaxe le nom de l'argument et la valeur est retournée. De cette façon, vous pouvez énumérer tous disponibles variable. Les valeurs valides sont: 1 - 255.

    Sub EnumSEVars()
        Dim strVar As String
        Dim i As Long
        For i = 1 To 255
            strVar = Environ$(i)
            If LenB(strVar) = 0& Then Exit For
            Debug.Print strVar
        Next
    End Sub

peu de temps lorsque nous utilisons Environ() fonction, nous pouvons obtenir de la Bibliothèque ou de la propriété ne trouve pas d'erreur. Utilisez VBA.Environ() ou VBA.Environ$() pour éviter l'erreur.