UserName = Environ $（＆＃34; UserName＆＃34;）在最新版本的Windows中不起作用？

Question

此代码似乎不适用于Windows 7/8？

Public Function UserName()
    UserName = Environ$("UserName")
End Function

这有什么问题吗？

此致

Answer 1

我用：

Username = CreateObject("WScript.Network").Username

Answer 2

这适用于使用Excel 2010的Windows7。

Environ("username")