Súhrn
Môžete volanie Windows API (aplikačné programové rozhranie) Microsoft Windows DLL (DLL) získať aktuálne meno používateľa. Aktuálny používateľ získate pomocou funkcie GetUserNameA ADVAPI32. KNIŽNICA DLL.
Ďalšie informácie
Program Microsoft Excel nemá vstavanú funkciu zobrazíte aktuálny používateľ počítača. Však môžete Declare vyhlásenie v jazyku Visual Basic for Applications a Microsoft Windows funkciu, ktorá vráti názov aktuálneho používateľa. Spoločnosť Microsoft poskytuje príklady Visual Basic for Applications postupy ilustrácie len, bez záruky ľubovoľnej vyjadrenej alebo implicitnej, vrátane, ale nielen, implicitné záruky obchodovateľnosti a vhodnosti na konkrétny účel. Visual Basic postupy v tomto článku sa poskytuje "ako je" a spoločnosť Microsoft nezaručuje, že sa používajú vo všetkých situáciách. Hoci pracovníci technickej podpory spoločnosti Microsoft môžu pomôcť vysvetliť funkčnosť určité makro, nemôžu tieto príklady poskytovať pridanú funkčnosť, ani pomôžu vytvoriť makrá špecifickým potrebám. Ak máte obmedzené skúsenosti s programovaním, môžete jedným z poskytovateľov riešení Microsoft. Roztok poskytovatelia ponúkajú širokú škálu poplatok-založené služby, vrátane vytvorenia vlastné makrá. Ďalšie informácie o poskytovateľov riešení Microsoft, zavolajte Microsoft zákazníka informačná služba na (800) 426-9400.
PRÍKLAD
-
Do nového modulu zadajte nasledujúci kód:
' 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
-
Spustiť Get_User_Name. Všimnite si, že názov aktuálneho používateľa zobrazí v okne s hlásením.