在Mac系统中使用Excel VBA播放WAV文件报错，求解决方法

你之前使用的sndPlaySound32是Windows平台专属API，依赖Windows系统的winmm.dll动态库，Mac系统无此组件，因此运行报错。以下是两种适配Mac系统的实现方案，可满足VBA执行结束时播放WAV文件的需求：

方法一：调用QuickTime Player播放（可视化方式） #

通过AppleScript调用Mac自带的QuickTime Player播放音频，适合需要可视化反馈的场景：

Option Explicit

Sub PlayWavWithQuickTime()
    ' 替换为你的WAV文件绝对路径，Mac路径格式为 /Users/用户名/文件路径.wav
    Dim wavFilePath As String
    wavFilePath = "/Users/yourname/Documents/task_finish.wav"
    
    ' 构造AppleScript命令，播放后自动关闭窗口
    Dim appleScriptCode As String
    appleScriptCode = "tell application ""QuickTime Player"" to open POSIX file """ & wavFilePath & """" & vbCrLf & _
                     "tell application ""QuickTime Player"" to play document 1" & vbCrLf & _
                     "delay 3" & vbCrLf & ' 延迟时间需与音频时长匹配，避免提前关闭
                     "tell application ""QuickTime Player"" to close document 1"
    
    ' 执行AppleScript
    MacScript(appleScriptCode)
End Sub

方法二：使用afplay命令行播放（无窗口后台播放） #

利用Mac系统内置的afplay命令行工具，无需弹出窗口，适合后台静默播放：

Option Explicit

Sub PlayWavWithAfplay()
    Dim wavFilePath As String
    ' 路径含空格时需用双引号包裹，示例为桌面路径
    wavFilePath = "/Users/yourname/Desktop/task_finish.wav"
    
    ' 构造shell命令
    Dim shellCmd As String
    shellCmd = "afplay """ & wavFilePath & """"
    
    ' 同步执行命令（VBA会等待音频播放完毕再结束，若需异步可在命令末尾加 &）
    Shell(shellCmd, vbNormalFocus)
End Sub

注意事项 #

• 务必使用Mac标准路径格式：用斜杠/分隔目录，绝对路径从根目录开始（如/Users/xxx/xxx.wav）。
• 若要在VBA执行结束时播放，只需将播放代码放在所有业务逻辑的最后一行。
• 测试时可先将WAV文件放在桌面，简化路径排查问题。

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