Kokkuvõte
Saate Windows API (rakenduste programmeerimisliidese) helistada Microsofti Windows DLL (dynamic link library) saada praeguse kasutaja nime. Praeguse kasutaja nime saate hankida ADVAPI32 GetUserNameA funktsiooni abil. DLL-I.
Lisateave
Microsoft Excel on sisseehitatud funktsioonid juurdepääsu arvuti praeguse kasutaja nime. Kuid saate Declare avaldus Visual Basic for Applications makro Microsoft Windowsi funktsiooni, mis tagastab praeguse kasutaja nime. Microsoft pakub näiteid Visual Basic rakenduste kirjelduse programmeerimisnäiteid ainult artikli illustreerimiseks ilma igasuguse otsese või kaudse garantiita, sealhulgas, kuid mitte ainult, kaudseid garantiisid kaubastatavuse ja/või kindlaks otstarbeks sobivusega. Visual Basicu protseduuride selles artiklis on ära toodud "nagu on" ning Microsoft ei garanteeri, et neid saab kasutada kõigis olukordades. Kuigi Microsofti tugitöötajad võivad aidata selgitada kindla makro funktsiooni, ei muuda nad neid näiteid lisatud funktsioonide võimaldamine ega need aitavad teil luua makrosid vastavalt oma vajadustele. Kui teil on piiratud programmeerimise kogemus, võite pöörduda Microsofti lahenduste pakkujad ühte. Lahenduste pakkujad pakuvad mitmesuguseid tasulised teenused, sh kohandatud makrode loomine. Lisateabe saamiseks Microsofti lahenduste pakkujad, helistage Microsofti teavet klienditeeninduse numbril (800) 426-9400.
NÄIDE
-
Tippige uude moodulisse järgmine kood:
' 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
-
Käivitage makro Get_User_Name. Pange tähele, et praeguse kasutaja nimi kuvatakse teateboks.
