Spielen WAV-Dateien mit VBA in Microsoft Excel
Es ist einfach, Sounddateien im WAV-Format abzuspielen. Sie müssen nur den Dateinamen des Sounds kennen, den Sie abspielen möchten, und entscheiden, ob das Makro warten soll, während der Sound abgespielt wird oder nicht.
Hier ist ein Beispiel:
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