windows - VBA - Windows 和 OSX 中的用户名

Question

我正在编写 VBA 代码以从多个 xlsx 文件收集输入并将它们合并到一个主表中。由于此工作表的用户混合了 Windows 和 OSX 用户，因此我的代码需要在两个平台上通用。

我想要实现的其中一件事是确定用户的用户名。这可以在 Windows 上使用 environ("username") 并在 OSX 上使用 MacScript 来完成。但是，以下代码无法在 Mac 上编译，因为它不知道 environ()。

OS_IS_MAC = Application.OperatingSystem Like "*Mac*"
If OS_IS_MAC Then
   sMyScript = "set userName to short user name of (system info)" & vbNewLine & "return userName"
   USERNAME = MacScript(sMyScript)

Else

   USERNAME = Environ("UserName")

End If

我该如何解决这个问题？

Answer 1

使用条件编译:

#If Mac Then
   sMyScript = "set userName to short user name of (system info)" & vbNewLine & "return userName"
   USERNAME = MacScript(sMyScript)
#Else
   USERNAME = Environ("UserName")
#End If