作者:手机用户2602927935 | 来源:互联网 | 2023-05-19 12:54
我正在编写VBA代码来收集来自几个xlsx文件的输入,并将它们组合成一个主表.由于此工作表的用户是混合Windows和OSX用户,因此我的代码需要在两个平台上都是通用的.
我想要实现的一件事是确定用户的用户名.这可以environ("username")
在Windows和MacScript
OSX上使用.但是,下面的代码无法在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)
其他
USERNAME = Environ("UserName")
万一
我怎么能绕过这个?
1> Rory..:
使用条件编译:
#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