VBA中如何获取当前登录用户名

‘API调用

Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _

    (ByVal lpBuffer As String, nSize As Long) As Long

 

’转成VBA里常规的字符

Public Function NTDomainUserName() As String

 

    Dim strBuffer As String * 255

    Dim lngBufferLength As Long

    Dim lngRet As Long

    Dim strtemp As String

 

    lngBufferLength = 255

    strBuffer = String(255, 0)

    lngRet = GetUserName(strBuffer, lngBufferLength)

    strtemp = LCase(Left(strBuffer, lngBufferLength - 1))

    NTDomainUserName = strtemp

End Function