Rezumat
Puteţi face un apel API Windows (interfaţa de programare a aplicațiilor) pentru Microsoft Windows DLL (bibliotecă legături dinamice) pentru a obţine numele de utilizator curent. Numele de utilizator curent se pot obține utilizând funcția GetUserNameA din ADVAPI32. DLL.
Mai multe informații
Microsoft Excel nu are o funcționalitate încorporată pentru a accesa numele de utilizator curent pe computer. Cu toate acestea, utilizați instrucțiunea Declare într-o Visual Basic for Applications macrocomandă pentru a apela o funcție de Microsoft Windows, care va reveni la numele de utilizator curent. Microsoft oferă exemple de Visual Basic pentru aplicaţii proceduri în scop ilustrativ, fără nicio garanţie explicită sau implicită, inclusiv, dar nu se limitează la garanţiile implicite de vandabilitate şi/sau potrivire pentru un anumit scop. Visual Basic procedurile din acest articol sunt furnizate "ca atare' și Microsoft nu garantează că pot fi utilizate în toate situaţiile. În timp ce specialiștii de suport Microsoft pot ajuta la explicarea funcționalității de o anumită macrocomandă, nu vor modifica aceste exemple pentru a furniza funcționalitate adăugate, nici ele vă va ajuta construi macrocomenzi pentru a satisface nevoile dvs. specifice. Dacă este limitată în programare, se recomandă să consulte unul dintre furnizorii de soluţii Microsoft. Furnizori de soluţii oferă o gamă largă de servicii bazate pe taxă, inclusiv crearea macrocomenzilor particularizate. Pentru mai multe informații despre furnizorii de soluţii Microsoft, apelați serviciul de informații pentru clienți Microsoft la (800) 426-9400.
EXEMPLU
-
Tastați următorul cod într-un modul nou:
' Makes sure all variables are dimensioned in each subroutine. Option Explicit ' Access the GetUserNameA function in advapi32.dll and ' call the function GetUserName. Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _ (ByVal lpBuffer As String, nSize As Long) As Long ' Main routine to Dimension variables, retrieve user name ' and display answer. Sub Get_User_Name() ' Dimension variables Dim lpBuff As String * 25 Dim ret As Long, UserName As String ' Get the user name minus any trailing spaces found in the name. ret = GetUserName(lpBuff, 25) UserName = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1) ' Display the User Name MsgBox UserName End Sub
-
Executați macrocomanda Get_User_Name. Rețineți că numele de utilizator curent va apărea într-o casetă de mesaj.