在VBA中使用WMI获取当前Windows用户名

Question

Closed. This question is not reproducible or was caused by typos. It is not currently accepting answers.

---

这个问题是由拼写错误或无法再重现的问题引起的。 虽然类似的问题可能在这里主题，但这个问题的解决方式不太可能帮助未来的读者。

3 年前已关闭。

Answer 1

怎么样

UserName = Environ("Username")
Domain = Environ("UserDomain")
Combined= Environ("UserDomain") & "\" & Environ("Username")

Answer 2

意识到这已经过时了，但是为了处理多个 Excel 实例，另一篇文章（下面链接）阐明了如何获取当前应用程序的进程 ID：

Declare Function GetCurrentProcessId Lib "kernel32" () As Long
...
ProcessID = GetCurrentProcessId

Set ColProcessIDList = objWMIService.ExecQuery( _
    "SELECT * FROM Win32_Process WHERE ProcessID = '" & ProcessID & "'")
...

如何通过 VBA 获取当前 Excel 实例的进程 ID，而不使用标题？

Answer 3

WQL 中没有 TOP 1 子句。 将其保留，您的查询应该可以工作：

"SELECT * FROM Win32_Process WHERE Name = 'EXCEL.EXE'"