Загальні відомості
Ви зможете виклику Windows API (інтерфейс програмування застосунків) для Microsoft Windows DLL (бібліотека для динамічного компонування) для отримання поточного користувача. Поточне ім'я користувача, можна отримати за допомогою функції GetUserNameA ADVAPI32. DLL.
Додаткові відомості
Microsoft Excel має функція доступ з поточним ім'ям користувача комп'ютера. Проте можна заявити твердження у Visual Basic для застосунків макрос для виклику функції Microsoft Windows, що повернеться до поточного користувача. Корпорація Майкрософт надає приклади Visual Basic для застосунків процедур, тільки для ілюстрації без гарантій – прямих або інших, включаючи, без обмеження будь-яких гарантій придатності до продажу та/або придатності для певної мети. Процедур Visual Basic, у цій статті надається "як", і корпорація Майкрософт не гарантує, що вони можуть бути використані в будь-яких ситуаціях. У той час як фахівці служби підтримки Майкрософт можуть пояснити функціональні можливості, зокрема макрос, не будуть змінювати приклади надати додаткові функції, а також їх можна створювати макроси для виконання. Якщо у вас обмежений досвіду програмування, ви можете звернутися до одного з провайдерів рішення Microsoft. Постачальники рішень, пропонують різноманітні платні послуги, зокрема, створення настроюваних макросів. Щоб отримати додаткові відомості про Microsoft надаються відомості служби підтримки клієнтів Microsoft на (800) 426-9400 зателефонуйте.
ПРИКЛАД
-
У Новий модуль, введіть такий код:
' 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. Зверніть увагу, що поточним ім'ям користувача буде відображено у вікні повідомлення.