Pierakstīties, izmantojot Microsoft
Pierakstīties vai izveidot kontu
Sveicināti!
Atlasīt citu kontu.
Jums ir vairāki konti
Izvēlieties kontu, ar kuru vēlaties pierakstīties.

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

  1. 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
  2. Get_User_Name makro palaišanas. Ņemiet vērā, ka ziņojuma lodziņā tiks parādīts pašreizējā lietotāja vārdu.

Nepieciešama papildu palīdzība?

Vēlaties vairāk opciju?

Izpētiet abonementa priekšrocības, pārlūkojiet apmācības kursus, uzziniet, kā aizsargāt ierīci un veikt citas darbības.

Kopienas palīdz uzdot jautājumus un atbildēt uz tiem, sniegt atsauksmes, kā arī saņemt informāciju no ekspertiem ar bagātīgām zināšanām.

Vai šī informācija bija noderīga?

Cik lielā mērā esat apmierināts ar valodas kvalitāti?
Kas ietekmēja jūsu pieredzi?
Nospiežot Iesniegt, jūsu atsauksmes tiks izmantotas Microsoft produktu un pakalpojumu uzlabošanai. Jūsu IT administrators varēs vākt šos datus. Paziņojums par konfidencialitāti.

Paldies par jūsu atsauksmēm!

×