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

版权声明：本文内容由互联网用户自发贡献，该文观点仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 举报，一经查实，本站将立刻删除。

发布者：全栈程序员栈长，转载请注明出处：https://javaforall.cn/181983.html原文链接：https://javaforall.cn