Звуковые файлы в WAV-формате легко проигрывать. Вам нужно только знать имя файла звука, который вы хотите воспроизвести, и решить, хотите ли вы, чтобы макрос ждал, пока воспроизводится звук, или нет.

Вот пример:

Public Declare Function sndPlaySound Lib "winmm.dll" _

Alias "sndPlaySoundA" (ByVal lpszSoundName As String, _

ByVal uFlags As Long) As Long

Sub PlayWavFile(WavFileName As String, Wait As Boolean)

If Dir(WavFileName) = "" Then Exit Sub ' no file to play

If Wait Then ' play sound before running any more code

sndPlaySound WavFileName, 0

Else ' play sound while code is running

sndPlaySound WavFileName, 1

End If

End Sub

Sub TestPlayWavFile()

PlayWavFile "c:\foldername\soundfilename.wav", False

MsgBox "This is visible while the sound is playing..."

PlayWavFile "c:\foldername\soundfilename.wav", True

MsgBox "This is visible after the sound is finished playing..."

End Sub