MacOS下Excel VBA调用AppleScriptTask出现错误5：无效过程调用或参数

可能的原因及修复方案 #

1. 统一返回值的字符串格式 #

AppleScript返回的文本可能包含VBA无法直接处理的特殊字符，或是返回类型在传递时出现兼容问题。可以修改AppleScript确保返回纯文本字符串，同时在VBA端做兼容处理：

修改后的AppleScript：

on SaveTextToFile(textToSave)
    set filePath to "/Users/myuser/Library/CloudStorage/GoogleDrive/My Drive/_LastNL.txt"
    try
        set fileReference to open for access filePath with write permission
        set eof of fileReference to 0
        write textToSave to fileReference starting at eof as «class utf8»
        close access fileReference
        -- 强制转换为纯字符串格式返回
        return textToSave as string
    on error errMsg
        close access fileReference
        return errMsg
    end try
end SaveTextToFile

VBA端优化代码：

Dim lastValue As String
lastValue = ws.Range("A" & firstEmptyRow - 1).Value
Dim result As Variant ' 先用Variant接收，避免类型不匹配触发错误
On Error Resume Next
result = AppleScriptTask("SaveLastNLTextFile.scpt", "SaveTextToFile", lastValue)
On Error GoTo 0
' 忽略已知的错误5，因为脚本已执行成功
If Err.Number = 5 Then Err.Clear

2. 排查云存储路径的权限干扰 #

Google Drive路径可能存在额外的系统权限限制：

• 手动打开目标文件/Users/myuser/Library/CloudStorage/GoogleDrive/My Drive/_LastNL.txt，确认Excel被授予访问该路径的权限（系统弹出请求时选择允许）
• 临时将文件路径改为本地非云存储路径（比如/Users/myuser/Desktop/_LastNL.txt），测试是否仍会报错，排除云存储的影响

3. 清理参数中的特殊字符 #

如果lastValue包含引号、换行符等特殊字符，可能导致AppleScript解析异常，在VBA中先清理参数：

lastValue = Replace(Replace(lastValue, """", ""), vbCrLf, "")

4. 验证脚本的命名与位置 #

• 确认脚本文件名SaveLastNLTextFile.scpt无拼写错误，后缀正确
• 确认脚本存放在正确路径：/Users/myuser/Library/Application Scripts/com.microsoft.Excel/，注意MacOS路径区分大小写

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