Using Vba to run/open an audio file

[Excel_newbie_85]

A very cold hello as its -16 centigrade here and thought I should start working on my new project.

I have been searching through vba sites for a simple code input that enables me to have a macro play and audio file.

Now, I understand it may need to be saved as a wav file but cannot get anything to open.

Details to consider:
Macro is activated then, application is opened, file played, application closes

audio format is .wav (but could be mp3 or wmp)

I am using WMP to play file (but can change to another)

So, with that in mind, does anyone know the criteria for the code?
example code (obviously its not real code, just explanitary code)

Run macro playfile()
open.wmp.play."c: blah blah blah .wav"
close application

end

Cheers

 

[Excel_newbie_85]

I have found this but has syntax error!/!/

Private Declare Function PlaySound Lib "winmm.dll"_<?xml:namespace prefix = o /><o></o>
Alias "PlaySoundA" (ByVal lpszName As String, _<o></o>
ByVal hModule As Long, ByVal dwFlags As Long) AsLong<o></o>
<o></o>
Sub Play_Wav_File()<o></o>
<o></o>
Dim sWAVFile As String<o></o>
<o></o>
On Error GoTo Err_Play<o></o>
<o></o>
sWAVFile = "C:\Temp\Windows XP Logon Sound.wav"<o></o>
<o></o>
PlaySound(sWAVFile, &O0, 0)<o></o>
<o></o>
Err_Play:<o></o>
If Err <> 0 Then<o></o>
Err.Clear()<o></o>
End If<o></o>
<o></o>
End Sub​

 

[shg]

Try this:

Private Declare Function PlaySound Lib "winmm.dll" _
        Alias "sndPlaySoundA" _
        (ByVal lpszSoundName As String, _
        ByVal uFlags As Long) As Long
 
Sub Play_Wav_File()
    Dim sWAVFile    As String
 
    sWAVFile = "C:\Temp\Windows XP Logon Sound.wav"
 
    On Error Resume Next
    PlaySound sWAVFile, 0
    If Err.Number Then Err.Clear
End Sub

 

[Excel_newbie_85]

Hey,
That looks better but has an error:
Compile error
Ambiguous name detected:PlaySound
"Sub Play_Wav_File()" is highlight light blue
?!

 

[shg]

Delete the declaration you had before.

 

[bulevardi]

Here's an Excel MP3 player ready to use:
bulevardi

You can use the code and modify for your needs!