软件:EXCEL 版本:2013 使用宏当达成条件时播放音效 Private Declare Function PlayWaveSound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long Public Sub sound() Dim soundName As String soundName = "C:\WINDOWS\Media\Windows 灿烂.wav" '指定音效档 PlayWaveSound soundName, 0 End Sub 以上是语法 虽然会发出声音 但永远是出现 C:\WINDOWS\Media\Windows 叮咚.wav 这个声音 无论语法路径如何修改音效都不会跟着变