Procedúra jazyka Visual Basic na získanie aktuálneho mena používateľa

Súhrn

Ak chcete získať aktuálne meno používateľa, môžete nastaviť rozhranie API systému Windows (aplikačné programovacie rozhranie) na Microsoft Windows DLL (knižnicu dynamických prepojení). Aktuálne meno používateľa môžete získať pomocou funkcie GetUserNameA v ADVAPI32. DLL.

Ďalšie informácie

Microsoft Excel nemá vstavanú funkciu na prístup k aktuálnemu názvu používateľa počítača. Môžete však použiť príkaz Declare v makre jazyka Visual Basic for Applications, aby ste mohli zavolať na funkciu Microsoft Windows, ktorá vráti aktuálne meno používateľa. Spoločnosť Microsoft poskytuje príklady postupov jazyka Visual Basic for Applications len na ilustráciu bez záruky, či už vyjadrenej alebo implicitnej, vrátane, ale nie výhradne, implicitných záruk obchodovateľnosti a vhodnosti na konkrétny účel. Postupy jazyka Visual Basic v tomto článku sa poskytujú tak, ako sú, a spoločnosť Microsoft nezaručuje, že sa môžu používať vo všetkých situáciách. Zatiaľ čo odborníci oddelenia technickej podpory spoločnosti Microsoft vám môžu pomôcť vysvetliť funkčnosť konkrétneho makra, tieto príklady nebudú upravovať, aby poskytovali pridanú funkčnosť, ani nepomáhajú budovať makrá tak, aby vyhovovali vašim špecifickým potrebám. Ak máte obmedzené programovacie prostredie, možno budete chcieť konzultovať niektorého z poskytovateľov riešení spoločnosti Microsoft. Poskytovatelia riešení ponúkajú širokú škálu služieb založených na poplatkoch vrátane vytvárania vlastných makier. Ďalšie informácie o poskytovateľoch riešení spoločnosti Microsoft získate telefonicky na lokalite Microsoft Customer Information Service (800) 426-9400.

NAPRÍKLAD

  1. 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
  2. Spustite Get_User_Name makra. Všimnite si, že aktuálne meno používateľa sa zobrazí v okne s hlásením.

Potrebujete ďalšiu pomoc?

Rozšírte svoje zručnosti
Preskúmať školenie
Buďte medzi prvými, ktorí získajú nové funkcie
Pripojiť k Microsoft insiderov chcú

Považujete poskytnuté informácie za užitočné?

Ďakujem za vaše pripomienky!

×