“Environ”类似于AppleScript Mac Excel Vba的功能

Question

我搜索了不同的论坛，发现没有解决我的问题。我希望利用＆＃34; Environ＆＃34;像Mac的功能，允许我的用户从共享的Dropbox文件夹中引用applescript。

Sub Button1_Click()
Dim scriptToRun As String

scriptToRun = "set myScript to ""Macintosh HD:Users:MyUserName:Dropbox:Shared Dropbox: Mac Excel Scripts:NewWorksheet-2008.scpt"" as alias"
scriptToRun = scriptToRun & vbCr & "run script myScript"
MacScript (scriptToRun)

End Sub

对于Windows，这是通过使用Environ实现的：

"\Users\" & Environ("Username") & "\Dropbox\Mac Excel Scripts\NewWorksheet-2008.scpt\"

基本上，我想将myUserName替换为theirUsername。如果有更好的方法，请告知。在此先感谢您的帮助！