Comment obtenir le nom d'utilisateur actuel dans VBA?

Question

J'ai juste besoin d'obtenir le nom de l'utilisateur actuel afin que je puisse accéder au dossier de données de l'application dans leurs dossiers .... Je dois le faire dans VBA alors oui ... aide s'il vous plaît.

Answer 1

Je crois qu'il ya quelque chose comme

Environ("Username")

Answer 2

Vous n'avez pas besoin nom d'utilisateur pour savoir quel dossier est le dossier de données application. Vous devez utiliser la fonction SHGetFolderPath avec la valeur CSIDL_APPDATA.

Private Declare Function SHGetFolderPath Lib "shell32.dll" Alias "SHGetFolderPathA" (ByVal hwnd As Long, ByVal csidl As Long, ByVal hToken As Long, ByVal dwFlags As Long, ByVal pszPath As String) As Long 
Private Const CSIDL_APPDATA As Long = &H1A 
Private Const MAX_PATH As Long = 260 

---

Dim s As String 
s = String$(MAX_PATH, 0) 

SHGetFolderPath 0, CSIDL_APPDATA, 0, 0, s 

MsgBox Left$(s, InStr(1, s, vbNullChar))