如何通过AppleScriptTask从VBA调用AppleScript？调用失败求助

核心问题分析 #

脚本在编辑器中正常运行但VBA调用失败，通常是参数传递错误、权限不足、程序激活时机不对导致，以下是具体排查和修复步骤：

1. 修正VBA的AppleScriptTask参数错误 #

AppleScriptTask的参数逻辑是：AppleScriptTask(脚本文件名, 处理程序名, 传递给处理程序的参数)，你错误地把文件路径作为第三个参数传入——实际上脚本必须放在~/Library/Application Scripts/com.microsoft.Excel/目录下，VBA仅需指定文件名即可。

修正后的VBA代码：

Sub Test() 
    Dim RunMyScript As Boolean   
    ' 脚本已放在指定目录，仅需传入文件名
    RunMyScript = AppleScriptTask("Validation Drop Down Arrow Script.scpt", "ArrowDown", "")  
End Sub

2. 优化AppleScript的激活与权限逻辑 #

VBA调用时Excel的激活状态不稳定，且直接调用System Events可能因权限或进程定位失败，调整脚本如下：

on ArrowDown(inputParam)  
    tell application "Microsoft Excel"
        activate
        -- 延长等待时间确保Excel完全激活
        delay 0.5
        -- 选中目标单元格（固定选G2则保留此行，若要选当前活动单元格可替换为下方两行）
        select range "G2"
        -- set targetCell to active cell
        -- select targetCell
    end tell
    -- 明确指定Excel进程，避免System Events定位错误
    tell application "System Events"
        tell process "Microsoft Excel"
            key code 125 using option down
        end tell
    end tell
end ArrowDown

3. 验证系统权限 #

确保Excel拥有辅助功能权限，否则System Events无法模拟按键：

• 打开「系统设置」→「隐私与安全性」→「辅助功能」
• 找到并勾选「Microsoft Excel」
• 若已勾选，先取消再重新勾选，然后重启Excel

4. 检查文件名与处理程序名一致性 #

• 确认AppleScript文件的文件名和VBA中AppleScriptTask的第一个参数完全一致（包括空格、大小写）
• 确认AppleScript中的处理程序名ArrowDown和VBA中第二个参数完全一致

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