一个可以让Excel、Access等程序播放声音文件的函数（只能放WAV文件）

一个可以让Excel、Access等程序播放声音文件的函数（只能放WAV文件）
会让你的系统或者表格别具一格哦 :)

使用方法：=PlaySound("声音文件名.WAV")  (声音文件必须含路径和扩展名)
          =PlaySound(A1)   (A1单元格中存放声音文件名)

Declare Function apisndPlaySound Lib "winmm" Alias "sndPlaySoundA" _
(ByVal filename As String, ByVal snd_async As Long) As Long
Function PlaySound(sWavFile As String)
If apisndPlaySound(sWavFile, 1) = 0 Then
MsgBox "The Sound Did Not Play!"
End If
End Function