每个office软件都有一个用户名,如下图所示:
要用vba获取这个用户名可以使用Application对象的UserName属性,代码如下:
1 2 3 4 5 6 |
Sub 水星Excel() '读取用户名 MsgBox Excel.Application.UserName '修改用户名 Excel.Application.UserName = "水星Excel" End Sub |
从上数代码可以看出用户名既可以读取,也可以直接用vba代码修改。
发表评论