1、打开EXCEL
2、ALT+F11打开VBA界面
3、插入模块
4、输入代码Sub 获取用户名()Set WshNet = CreateOb门钙蹲茌ject("WScript.Netw泠贾高框ork")user = WshNet.UserNameMsgBox "用户名:" & userEnd Sub
5、点击运行按钮,选择刚才的宏命令,结果如下:
1、打开EXCEL
2、ALT+F11打开VBA界面
3、插入模块
4、输入代码Sub 获取用户名()Set WshNet = CreateOb门钙蹲茌ject("WScript.Netw泠贾高框ork")user = WshNet.UserNameMsgBox "用户名:" & userEnd Sub
5、点击运行按钮,选择刚才的宏命令,结果如下: