Spiller av WAV-filer med VBA i Microsoft Excel

Anonim

Det er enkelt å spille av lydfiler i WAV-format. Du trenger bare å vite filnavnet til lyden du vil spille,
og bestem om du vil at makroen skal vente mens lyden spilles av eller ikke. Her er et eksempel:

Offentlig erklære funksjon 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 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" Dette er synlig mens lyden spilles … "PlayWavFile" c: \ mappenavn \ soundfilename.wav ", True MsgBox" Dette er synlig etter at lyden er spilt … "End Sub