Kopsavilkums
Varat veikt Windows API (lietojumprogrammas interfeisa) zvanu Microsoft Windows dll (dinamisko saišu bibliotēka) iegūt pašreizējā lietotāja vārdu. Var saņemt, izmantojot funkciju GetUserNameA ADVAPI32 pašreizējā lietotāja vārdu. DLL.
Papildinformācija
Microsoft Excel nav iebūvēta funkcionalitāte, lai piekļūtu datora pašreizējo lietotājvārdu. Tomēr varat izmantot priekšraksts Declare Visual Basic for Applications makro, lai zvanītu Microsoft Windows funkcija, kas atgriež pašreizējā lietotāja vārdu. Korporācija Microsoft sniedz piemērus Visual Basic programmas darbības tikai uzskatāmībai, bez jebkādām tiešām vai netiešām garantijām, ieskaitot, bet neaprobežojoties ar netiešām garantijām par piemērotību pārdošanai un/vai atbilstību noteiktam mērķim. Visual Basic procedūras šajā rakstā sniegtas "kā ir" un korporācija Microsoft negarantē, ka tos var izmantot visos gadījumos. Microsoft atbalsta speciālisti var palīdzēt izskaidrot kādas noteiktas makro funkcionalitāti, kamēr viņi nemainīs šos piemērus, lai sniegtu pievienoto funkcionalitāti, kā arī tās palīdzēs jums izveidot makro atbilstoši savām vajadzībām. Ja jums ir ierobežota programmēšanas iespējas, varat iepazīties ar kādu no Microsoft risinājumu sniedzēju. Risinājumu sniedzēji piedāvā plašu maksas pakalpojumiem, tostarp izveidot pielāgotu makro. Lai iegūtu papildinformāciju par Microsoft risinājumu sniedzēju Zvaniet Microsoft klientu informācijas pakalpojumu (800) 426-9400.
PIEMĒRS
-
Jaunā modulī ievadiet šādu kodu:
' 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
-
Get_User_Name makro palaišanas. Ņemiet vērā, ka ziņojuma lodziņā tiks parādīts pašreizējā lietotāja vārdu.