Visual Basic procedūra, lai iegūtu pašreizējo lietotājvārdu

Kopsavilkums

Lai iegūtu pašreizējo lietotājvārdu, varat izveidot Windows API (lietojumprogrammas programmēšanas interfeisu), zvanot uz Microsoft Windows DLL (dinamisko saišu bibliotēku). Pašreizējo lietotājvārdu var iegūt, izmantojot funkciju GetUserNameA programmā ADVAPI32. DLL.

Papildinformācija

Programmā Microsoft Excel nav iebūvētas funkcionalitātes, kas ļauj piekļūt datora pašreizējam lietotājvārdam. Tomēr varat izmantot priekšrakstu deklarēšanu Visual Basic for Applications makro, lai sasauktu Microsoft Windows funkciju, kas atgriezīs pašreizējo lietotājvārdu. Microsoft nodrošina Visual Basic for Applications procedūru piemērus tikai ilustrācijai, bez garantijām izteikta vai netieša, ieskaitot, bet neaprobežojoties ar netiešajām garantijām par piemērotību lietošanai un/vai atbilstību noteiktam nolūkam. Visual Basic procedūras šajā rakstā tiek nodrošinātas kā is, un Microsoft negarantē, ka tās var izmantot visos gadījumos. Lai gan Microsoft atbalsta speciālisti var palīdzēt izskaidrot konkrēta makro funkcionalitāti, tie nemainīs šos piemērus, lai nodrošinātu papildu funkcionalitāti, un tie palīdzēs izveidot makro, kas atbilst jūsu konkrētajām vajadzībām. Ja jums ir ierobežota programmēšanas pieredze, iespējams, vēlēsities sazināties ar kādu no Microsoft risinājumu nodrošinātājiem. Risinājumu piegādātāji piedāvā plašu maksas pakalpojumu klāstu, tostarp pielāgotus makro izveidi. Lai iegūtu papildinformāciju par Microsoft risinājumu nodrošinātājiem, sazinieties ar Microsoft klientu informācijas pakalpojumu (800) 426-9400.

PIEMĒRAM

  1. Ierakstiet šādu kodu jaunā modulī:

        ' 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. Palaidiet makro Get_User_Name. Ievērojiet, ka pašreizējais lietotājvārds būs redzams ziņojuma lodziņā.

Vai nepieciešama papildu palīdzība?

Paplašiniet savas prasmes
Iepazīties ar apmācību
Esiet pirmais, kas saņem jaunās iespējas
Pievienoties Microsoft Insider

Vai šī informācija bija noderīga?

Paldies par jūsu atsauksmēm!

Paldies par atsauksmēm! Šķiet, ka jums varētu būt noderīgi sazināties ar kādu no mūsu Office atbalsta speciālistiem.

×