Suvestinė
Jūs galite skambinti Windows API (taikomojo programavimo sąsaja) ir Microsoft Windows DLL (dinaminių saitų biblioteka) gauti dabartinį vartotojo vardą. Naudojant funkciją GetUserNameA ADVAPI32 galima dabartinį vartotojo vardą. DLL.
Daugiau informacijos
Microsoft Excel nėra įtaisytosios funkcinės pasiekti kompiuterio dabartinį vartotojo vardą. Tačiau galite naudoti skelbia apie Visual Basic for Applications makrokomandą paskambinti "Microsoft" Windows funkcija, kuri bus grąžinti dabartinį vartotojo vardą. "Microsoft" teikia pavyzdžiai Visual Basic programų procedūrų tik, be nesuteikia jokių aiškių arba numanomų garantijų, įskaitant, bet neapsiribojant, numanomas garantijas dėl perkamumo ir (arba) tinkamumo konkrečiam tikslui. Visual Basic procedūros, šiame straipsnyje pateikiami "tokie, kokie yra" ir "Microsoft" negarantuoja, kad jie gali būti naudojami visose situacijose. Nors "Microsoft" palaikymo profesionalai gali padėti paaiškindami tam tikrą makrokomandą, jie nekeis šių pavyzdžių, kad suteikti papildomas funkcijas, taip pat jie padės jums sukurti makrokomandos, kad atitiktų jūsų poreikius. Jei turite ribotą programavimo patirties, galite kreiptis į vieną iš "Microsoft" sprendimų teikėjai. Sprendimų teikėjai siūlo platų mokamas paslaugas, taip pat sukurti pasirinktinį makrokomandos. Jei norite gauti daugiau informacijos apie "Microsoft" sprendimų teikėjai, skambinkite "Microsoft" klientų informacijos paslauga (800) 426-9400.
PVZ.
-
Naujame modulyje įrašykite šį kodą:
' 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
-
Vykdyti makrokomandą Get_User_Name. Atkreipkite dėmesį, kad esamas vartotojo vardas bus rodomas lange.
