Play Multiple Sounds

[Aviles]

Hello,
I'm currently using the below code to which plays a .wav file on command:

Option Explicit
 
Private Declare Function PlaySound Lib "winmm.dll" _
  Alias "PlaySoundA" (ByVal lpszName As String, _
  ByVal hModule As Long, ByVal dwFlags As Long) As Long
Const SND_SYNC = &H0
Const SND_ASYNC = &H1
Const SND_FILENAME = &H20000
 
Sub PlayWAV()
    Dim WAVFile As String
    WAVFile = "FOXNFL.wav"
    WAVFile = "S:\FMS\FMS\Templates\Sheets\Playbook\FOXNFL.wav"
    Call PlaySound(WAVFile, 0&, SND_ASYNC Or SND_FILENAME)
 
End Sub

Can some one please tell me how I can add/amend this code to play another (seperate) .wav file? I tried to add another module and changed the Sub to "PlayWAV2" with no luck.

Thanks.

 

[VoG]

Try in the same module like this

Private Declare Function PlaySound Lib "winmm.dll" _
  Alias "PlaySoundA" (ByVal lpszName As String, _
  ByVal hModule As Long, ByVal dwFlags As Long) As Long
Const SND_SYNC = &H0
Const SND_ASYNC = &H1
Const SND_FILENAME = &H20000
 
Sub PlayWAV()
    Dim WAVFile As String
    WAVFile = "S:\FMS\FMS\Templates\Sheets\Playbook\FOXNFL.wav"
    Call PlaySound(WAVFile, 0&, SND_ASYNC Or SND_FILENAME)
 
End Sub

Sub PlayWAV2()
    Dim WAVFile As String
    WAVFile = "S:\FMS\FMS\Templates\Sheets\Playbook\XXX.wav"
    Call PlaySound(WAVFile, 0&, SND_ASYNC Or SND_FILENAME)
 
End Sub

 

[Masyo]

Dear all,

Play sound Wav in Excel, after saved can't play?

I have done as like above programming, and can run properly, but after saved, the sounds are heard only "ding".

I creating timer/scheduler using Excel, with as logical something like this:

=IF(logic1,play1.wav,IF(logic2,play2.wav,play3.wav))

as like this:
Excel Developer Tip: Playing a Sound Based on a Cell's Value

Reference:
Yahoo! Answers - Play sound Wav in Excel?

And done already, but after saved, the formula can't play the wav as in VBA, just "ding" sound appear.

Might somebody help me please.
Thank you.