[VBA函数]：返回当时登录到本地机器的用户名

whp5924

返回当时登录到本地机器的用户名
Public Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
    (ByVal lpBuffer As String, _
     nSize As Long) As Long
     
Public Const UNLEN = 256

Public Function GetUser() As String

    Dim nSize As Long, lpBuffer As String
   
    nSize = UNLEN + 1
    lpBuffer = Space(nSize)
   
    GetUser = IIf(GetUserName(lpBuffer, nSize), Left(lpBuffer, nSize), "ERROR")

End Function