如何在Mac版Excel VBA中通过AppleScript执行Python？

已经搞定了Conda环境下用AppleScript执行Python脚本的需求，但在Mac版Excel VBA里调用AppleScript时，不管是用AppleScriptTask还是Shell + osascript的方式，要么报错要么没反应，完全没执行动作。测试用的两段VBA代码如下：

测试一（AppleScriptTask） #

Sub RunScript0()
    Dim myScriptResult As String
    myScriptResult = AppleScriptTask("/Users/andrea/Library/Application Scripts/com.microsoft.Excel/MyAppleScriptFile.scpt", "MyAppleScriptHandler", "/usr/bin/python3 /Users/andrea/Desktop/pymac/test.py")
End Sub

测试二（Shell + osascript） #

Sub RunScript1()
    Dim scriptPath As String
    Dim command As String

    ' Set the path to your AppleScript file
    scriptPath = "/Users/andrea/Library/Application Scripts/com.microsoft.Excel/run_script.scpt"

    ' Build the full command
    command = "osascript """ & scriptPath & """"

    ' Run the command using the Shell function
    Call Shell(command, vbNormalFocus)
End Sub

一、修复AppleScriptTask方法的问题 #

1. 先搞定路径和权限 #

• 确认AppleScript文件必须放在/Users/andrea/Library/Application Scripts/com.microsoft.Excel/目录下，文件名和Handler名称要完全匹配，Mac区分大小写，别写错。
• 给Excel开权限：打开「系统设置」→「隐私与安全性」→「文件与文件夹」，确保Microsoft Excel已经勾选了这个目录的访问权限。

2. 修正参数传递逻辑 #

你之前的Conda环境激活逻辑应该是写在AppleScript里的，不用把完整的Python命令传进去，只传脚本路径就行，不然Handler可能解析出错。改后的VBA代码：

Sub RunScript0()
    Dim myScriptResult As String
    On Error Resume Next
    ' 只传Python脚本路径，Conda激活在AppleScript里处理
    myScriptResult = AppleScriptTask("/Users/andrea/Library/Application Scripts/com.microsoft.Excel/MyAppleScriptFile.scpt", "MyAppleScriptHandler", "/Users/andrea/Desktop/pymac/test.py")
    ' 捕获错误信息，方便调试
    If Err.Number <> 0 Then
        MsgBox "出错了: " & Err.Description, vbCritical
    Else
        Debug.Print myScriptResult
    End If
    On Error GoTo 0
End Sub

对应的AppleScript Handler要能正确接收参数并激活Conda，示例：

on MyAppleScriptHandler(pyScriptPath)
    set condaEnvName to "你的Conda环境名"
    ' 加载shell配置，确保Conda命令能被找到
    set shellCmd to "source ~/.zshrc && conda activate " & condaEnvName & " && python3 " & quoted form of pyScriptPath
    do shell script shellCmd
end MyAppleScriptHandler

二、修复Shell + osascript方法的问题 #

1. 解决环境变量缺失问题 #

Excel通过Shell执行的环境和终端不一样，Conda路径可能没加载，得在AppleScript里显式读shell配置文件：
修改run_script.scpt：

set pyScriptPath to "/Users/andrea/Desktop/pymac/test.py"
set condaEnvName to "你的Conda环境名"
set shellCmd to "source ~/.zshrc && conda activate " & condaEnvName & " && python3 " & quoted form of pyScriptPath
do shell script shellCmd

2. 修正命令引号转义 #

原VBA里的双引号转义容易出问题，改用Chr(34)代替，同时捕获执行结果：

Sub RunScript1()
    Dim scriptPath As String
    Dim command As String
    Dim output As String

    scriptPath = "/Users/andrea/Library/Application Scripts/com.microsoft.Excel/run_script.scpt"
    ' 用Chr(34)避免双引号转义错误，同时捕获标准输出和错误
    command = "osascript " & Chr(34) & scriptPath & Chr(34) & " 2>&1"

    ' 用WScript.Shell捕获输出，方便排查
    Dim wsh As Object
    Set wsh = CreateObject("WScript.Shell")
    Dim execObj As Object
    Set execObj = wsh.Exec(command)
    output = execObj.StdOut.ReadAll & execObj.StdErr.ReadAll
    Debug.Print output
End Sub

三、通用排查技巧 #

1. 先在终端验证AppleScript
   直接在终端跑：osascript /Users/andrea/Library/Application Scripts/com.microsoft.Excel/MyAppleScriptFile.scpt "/Users/andrea/Desktop/pymac/test.py"，如果终端能正常执行，说明问题在VBA调用；如果终端也报错，先把AppleScript脚本修好。
2. 给Python脚本加日志
   在Python脚本开头加日志代码，确认脚本是否被执行：

import datetime
with open("/Users/andrea/Desktop/pymac/run_log.txt", "w") as f:
    f.write(f"脚本启动时间: {datetime.datetime.now()}")

3. 确认Conda激活命令
   不同shell的配置文件不一样，zsh用~/.zshrc，bash用~/.bash_profile，对应调整AppleScript里的source路径。

内容的提问来源于stack exchange，提问作者abcoder