Procedura di Visual Basic per ottenere il nome utente corrente

Riepilogo

Puoi creare una chiamata API di Windows (Application Programming Interface) a una DLL di Microsoft Windows (Dynamic-Link Library) per ottenere il nome utente corrente. Il nome utente corrente può essere ottenuto tramite la funzione getnomeutentea in ADVAPI32. DLL.

Ulteriori informazioni

Microsoft Excel non ha la funzionalità predefinita per accedere al nome utente corrente del computer. Tuttavia, puoi usare l'istruzione Declare in una macro di Visual Basic, Applications, per chiamare una funzione Microsoft Windows che restituirà il nome utente corrente. Microsoft fornisce esempi di procedure di Visual Basic per le applicazioni solo per le illustrazioni, senza garanzie espresse o implicite, comprese, ma non limitate, le garanzie implicite di commerciabilità e/o idoneità per uno scopo specifico. Le procedure di Visual Basic in questo articolo vengono fornite "così com'è" e Microsoft non garantisce che possano essere usate in tutte le situazioni. Mentre i professionisti del supporto tecnico Microsoft possono aiutare a spiegare la funzionalità di una particolare macro, non modificano questi esempi per fornire funzionalità aggiuntive, né aiutano a costruire macro per soddisfare le esigenze specifiche. Se si ha un'esperienza di programmazione limitata, è consigliabile consultare uno dei provider di soluzioni Microsoft. I provider di soluzioni offrono una vasta gamma di servizi basati su tariffe, tra cui la creazione di macro personalizzate. Per altre informazioni sui provider di soluzioni Microsoft, contattare Microsoft Customer Information Service at (800) 426-9400.

ESEMPIO

  1. Digitare il codice seguente in un nuovo modulo:

        ' 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. Eseguire la macro Get_User_Name. Tieni presente che il nome utente corrente verrà visualizzato in una finestra di messaggio.

Serve aiuto?

Amplia le tue competenze
Esplora i corsi di formazione
Ottieni in anticipo le nuove caratteristiche
Partecipa a Microsoft Insider

Queste informazioni sono risultate utili?

Grazie per il feedback!

Grazie per il tuo feedback! Potrebbe essere utile metterti in contatto con uno dei nostri operatori del supporto di Office.

×