Excel/VBA 环境 ("username") 错误

Question

我有一个电子表格，其中包含加载到 SQL Server 数据库中的一系列模型输入。此过程的一部分涉及建立谁更新了什么以及何时更新的审计跟踪 - 我记录用户和计算机名称以及时间戳。

在我的 VBA 代码中，我有以下内容:

user = VBA.environ$("用户名")

它在装有 Office 2013 的 Win7 计算机上运行。

当我运行代码时，一切正常，但是当生产中的某人运行它时(在同一台机器上，但他们已登录，而不是我)，它会落在上面的行上。我使用了上述的变体(user = environ(“username”)，user = environ$(“username”))，但总是得到相同的结果 - 它对我有效，但对其他人无效。

有人对如何解决这个问题有任何想法吗？

Answer 1

你在这里:

Sub Test()
    With CreateObject("WScript.Network")
        Debug.Print .UserName
        Debug.Print .ComputerName
        Debug.Print .UserDomain
    End With
End Sub