VBA（Office 2011 for Mac）有沒有辦法運行AppleScript？

Question

此問題之前已被問到，但建議的答案（「Office 2011 for Mac中的VBA Shell函數」）似乎不起作用。

我的Applescript，Run_Script.scpt創建一個小的txt文件。它在編輯器中完美運行。編譯爲應用程序並雙擊桌面時，它也可以完美運行。

我需要從VBA過程中調用它。我試過這些：

Sub sub_scripttest() 

Dim i As Integer 
Dim result_long As Long 
Dim result_str As String 

'//== the original question was this: 
result_str = Shell("Macintosh HD:Applications:Run_Script.app", vbNormalFocus) 
result_str = Shell("Macintosh HD/Applications/Run_Script.app", vbNormalFocus) 
'//== gives a modal dialog box: "Runtime error 53: File not found" 

'//== the suggested solution was this: 
result_str = MacScript("do shell script ""Macintosh HD:Applications:Run_Script.app""") 
result_str = MacScript("do shell script ""Macintosh HD/Applications/Run_Script.app""") 
'//== gives a modal dialog box: "Runtime error 5: Invalid Procedure call or Argument" 

'//== another suggested solution was this: 
result_long = system("Macintosh HD:Applications:Run_Script.app") 
result_long = system("Macintosh HD/Applications/Run_Script.app") 
'//== appears to run, but returns result_long=32512, which is not a successful termination code. 
'//== also the desktop shows that the script did not run. The txt file was not created. 

'//== I even tried: 
result_str = AppleScriptTask("Run_Script.scpt", "my_command", "") 
'//== and got: "Compile Error: Sub or Function not defined." 

End Sub 

我有OS X El Capitan 10.11.6。我正在運行Office 2011 for Mac。 Excel已經更新到14.7.2

我在做什麼錯？

Answer 1

在Excel 2011（14.0.0）的ElCapitain上運行下面的2個宏。 您必須調整驅動器/用戶/腳本文件的路徑。

中調用VBA宏腳本：

s = "run script (""ElCapitain:Users:imac27:Desktop:Test_Script.scpt"" as alias)" 
Temp = MacScript(s) 

在調用VBA的應用程序的宏：

s = "run script (""ElCapitain:Users:imac27:Desktop:Test_App.app"" as alias)" 
Temp = MacScript(s)