Samenvatting
U kunt bellen een Windows API (application programming interface) op een Microsoft Windows-DLL (dynamic link library) ophalen van de gebruikersnaam van de huidige. De gebruikersnaam van de huidige kan worden verkregen met behulp van de functie GetUserNameA in ADVAPI32. DLL-BESTAND.
Meer informatie
Microsoft Excel beschikt niet over de ingebouwde functionaliteit voor toegang tot de huidige gebruiker de naam van de computer. Echter, kunt u de Declare-instructie in een Visual Basic for Applications-macro een Microsoft Windows-functie die de huidige gebruikersnaam wordt geretourneerd. Microsoft verstrekt voorbeelden van Visual Basic for Applications-procedures dienen uitsluitend ter illustratie expliciete of impliciete, met inbegrip van maar niet beperkt tot de impliciete garanties van verkoopbaarheid en/of geschiktheid voor een bepaald doel. De Visual Basic-procedures in dit artikel worden geleverd 'zoals is' en Microsoft kan niet garanderen dat ze kunnen worden gebruikt in alle situaties. Terwijl de medewerkers van Microsoft Productondersteuning kunnen voor uitleg over de functionaliteit van een bepaalde macro, ze deze voorbeelden om de toegevoegde functionaliteit niet worden gewijzigd, noch worden ze te maken van macro's aan uw specifieke behoeften. Als uw kennis van programmeren beperkt is, kunt u contact opnemen met één van de Microsoft Solution Providers. Solution Providers bieden een breed scala van services op basis van kosten, met inbegrip van aangepaste macro's maken. Bel de klantenservice met informatie van Microsoft op (800) 426-9400 voor meer informatie over Microsoft Solution Providers.
VOORBEELD
-
Typ de volgende code in een nieuwe module:
' 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
-
De macro Get_User_Name uitgevoerd. Houd er rekening mee dat de huidige gebruikersnaam wordt weergegeven in een berichtvenster.