Riepilogo
È possibile effettuare una chiamata di API di Windows (API) di una DLL (dynamic-link library) di Microsoft Windows per ottenere il nome utente corrente. Il nome utente corrente può essere ottenuto utilizzando la funzione GetUserNameA ADVAPI32. DLL.
Ulteriori informazioni
Microsoft Excel non è disponibile la funzionalità incorporata per accedere a nome dell'utente corrente del computer. Tuttavia, è possibile utilizzare l'istruzione Declare in un Visual Basic, Applications Edition macro per chiamare una funzione di Microsoft Windows che verrà restituito il nome utente corrente. Microsoft fornisce esempi di Visual Basic, Applications Edition procedure illustrativo, senza alcuna garanzia espressa o implicita, comprese, senza limitazioni, le garanzie implicite di commerciabilità o idoneità per uno scopo particolare. Le procedure di Visual Basic in questo articolo vengono fornite "così com'è" e Microsoft non garantisce che possono essere utilizzati in tutte le situazioni. Mentre gli esperti Microsoft consentono di spiegare la funzionalità di una macro particolare, non possono modificare questi esempi per fornire funzionalità aggiuntive, né consentirà di creare macro atte a soddisfare specifiche esigenze. Se si dispone di esperienza di programmazione limitata, si consiglia di consultare uno dei Microsoft Solution Provider. I solution provider offrono una vasta gamma di servizi a pagamento, inclusa la creazione di macro personalizzate. Per ulteriori informazioni su Microsoft Solution Provider, chiamare Microsoft Customer Information Service in (800) 426-9400.
ESEMPIO
-
Digitare il seguente codice 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
-
Eseguire la macro Get_User_Name. Si noti che il nome utente corrente verrà visualizzato in una finestra di messaggio.
