1、打开EXCEL

2、ALT+F11
打开VBA界面

3、插入模块

4、输入代码
Sub 获取用户名()
Set WshNet = CreateObject("WScript.Network")
user = WshNet.UserName
MsgBox "用户名:" & user
End Sub

5、点击运行按钮,选择刚才的宏命令,结果如下:

1、打开任一EXCEL表
ALT+F11 打开VBA编辑器
插入模块
写入代码
运行
1、打开EXCEL

2、ALT+F11
打开VBA界面

3、插入模块

4、输入代码
Sub 获取用户名()
Set WshNet = CreateObject("WScript.Network")
user = WshNet.UserName
MsgBox "用户名:" & user
End Sub

5、点击运行按钮,选择刚才的宏命令,结果如下:

1、打开任一EXCEL表
ALT+F11 打开VBA编辑器
插入模块
写入代码
运行