Mac Excel 15.1及以上版本FileDialog后期绑定失效问题求助

嘿，这个跨平台兼容性坑我之前也踩过！Mac Office 15.1及以上版本对VBA的Application.FileDialog方法做了底层调整，原来通用的写法在新版Mac环境里就会抛出438错误。下面给你一套兼顾PC和Mac的完整修改方案：

问题根源 #

Mac Office 2016（对应版本15.1+）之后，微软调整了VBA与系统文件选择器的交互逻辑，Application.FileDialog对象在Mac环境下不再完全兼容Windows上的调用方式，尤其是msoFileDialogFilePicker（也就是你代码里的参数3）这类对话框直接调用会失效。

修改后的兼容代码 #

我们通过操作系统判断分支，给Windows和Mac分别适配不同的文件选择逻辑，保证两端都能正常运行：

Option Explicit

Function GetSelectedFilePath() As String
    Dim fDialog As Object
    Dim filePath As String
    
    ' 检测当前操作系统
    If InStr(1, Application.OperatingSystem, "Mac") > 0 Then
        ' --- Mac Office 15.1+ 专属逻辑 ---
        On Error Resume Next
        ' 调用AppleScript弹出系统原生文件选择器
        filePath = MacScript("return POSIX path of (choose file with prompt ""请选择目标文件"" default location (path to documents folder))")
        On Error GoTo 0
        
        ' 处理用户取消选择的场景
        If filePath = "" Then
            GetSelectedFilePath = ""
            Exit Function
        End If
    Else
        ' --- Windows 系统保留原有逻辑 ---
        Set fDialog = Application.FileDialog(3) ' msoFileDialogFilePicker
        With fDialog
            .AllowMultiSelect = False ' 根据你的需求调整是否允许多选
            .Title = "请选择目标文件"
            If .Show = -1 Then
                filePath = .SelectedItems(1)
            Else
                filePath = ""
            End If
        End With
        Set fDialog = Nothing
    End If
    
    GetSelectedFilePath = filePath
End Function

关键修改点说明 #

• 双平台分支判断：用Application.OperatingSystem检测是否为Mac环境，确保代码在不同系统触发对应逻辑
• Mac端替代方案：用MacScript执行AppleScript调用系统原生文件选择器，这是新版Mac Office官方推荐的文件交互方式，比旧版FileDialog更稳定
• 错误处理：添加On Error Resume Next避免用户取消选择时代码崩溃
• 路径兼容性：AppleScript返回的POSIX路径（如/Users/xxx/Documents/test.xlsx），Mac版VBA可以直接识别，无需额外格式转换

额外优化建议 #

如果需要支持其他选择场景，只需修改AppleScript参数即可：

• 选择文件夹：把choose file改成choose folder
• 多文件选择：把choose file改成choose file with multiple selections allowed，然后返回的是路径数组，需要循环处理

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