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