excel利用VBA播放WAV声音文件

如果用VBA代码播放WAV声音文件，可以用下面的代码：

Private Declare Function sndPlaySound32 _
Lib "winmm.dll" _
Alias "sndPlaySoundA" ( _
ByVal lpszSoundName As String, _
ByVal uFlags As Long) As Long

Sub PlayWavFile()
sndPlaySound32 "C:WindowsMediading.wav", 0&
End Sub

运行上述代码将播放“C:WindowsMedia”文件夹中的ding.wav声音文件。