Mac下Excel VBA调用AppleScriptTask多选CSV文件返回空值解决方案

修改AppleScript脚本（ChooseFiles.scpt） #

将原脚本返回的alias对象列表转换为POSIX路径字符串，并用分隔符拼接，确保VBA能稳定接收：

on SelectFiles(fileType)
    set fileNames to choose file with prompt "Please select before and after treatment csv files:" of type {fileType} with multiple selections allowed
    set posixPaths to {}
    repeat with aFile in fileNames
        set end of posixPaths to POSIX path of aFile
    end repeat
    -- 用竖线作为分隔符（避免与文件名常见字符冲突）
    return join(posixPaths, "|")
end SelectFiles

-- 辅助函数：将列表拼接为带分隔符的字符串
on join(lst, delimiter)
    set AppleScript's text item delimiters to delimiter
    set joinedText to lst as text
    set AppleScript's text item delimiters to ""
    return joinedText
end join

修改VBA代码 #

声明变量并拆分拼接后的字符串，得到所有文件路径：

Dim SelectedCSV As String
Dim FilePaths() As String
' 调用AppleScript获取拼接后的文件路径字符串
SelectedCSV = AppleScriptTask("ChooseFiles.scpt", "SelectFiles", "csv")
' 拆分字符串为路径数组
FilePaths = Split(SelectedCSV, "|")

' 遍历处理每个文件
Dim i As Integer
For i = LBound(FilePaths) To UBound(FilePaths)
    Debug.Print FilePaths(i) ' 替换为你的业务处理逻辑
Next i

双平台兼容完整示例 #

为了同时支持Mac和Windows，可添加平台判断：

Dim FilePaths As Variant

#If Mac Then
    Dim SelectedCSV As String
    SelectedCSV = AppleScriptTask("ChooseFiles.scpt", "SelectFiles", "csv")
    FilePaths = Split(SelectedCSV, "|")
#Else
    ' Windows平台使用原生文件选择对话框
    FilePaths = Application.GetOpenFilename( _
        FileFilter:="CSV Files (*.csv), *.csv", _
        MultiSelect:=True, _
        Title:="Please select before and after treatment csv files:" _
    )
#End If

' 处理用户取消选择的情况
If Not IsArray(FilePaths) Then Exit Sub

' 遍历处理每个文件
Dim i As Integer
For i = LBound(FilePaths) To UBound(FilePaths)
    Debug.Print FilePaths(i) ' 这里添加你的文件处理代码
Next i

问题原因说明 #

原AppleScript返回的是AppleScript原生的alias对象列表：

• 当仅选择一个文件时，AppleScriptTask会自动将单个alias转换为POSIX URL字符串，VBA可直接接收
• 当选择多个文件时，未声明正确变量类型的VBA无法解析AppleScript的列表对象，导致返回空字符串
  修改后的脚本将所有文件统一转换为POSIX路径并拼接成单个字符串，VBA接收后拆分即可稳定获取所有文件路径，同时保证单/多选场景的一致性。

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