excellvba引用计算机用户名,EXCEL VBA 取当前登录 用户名的多种实现方法

EXCEL VBA 取当前登录 用户名的多种实现方法

1. 使用Wscript

Dim wsh As Object

Set wsh = CreateObject("WScript.Network")

Sheet1.Range("a1") = wsh.UserName

2. 使用环境变量

dim iuser

iuser = Environ("username")

3.VBA获取excel文件当前用户名的代码  (与windows用户名看看有否区别)

Public Sub 获取当前工作表的用户名()

MsgBox "当前用户名是: " & Application.UserName

End Sub

4. 使用API 方法获取 用户名

‘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