Redarea fișierelor WAV folosind VBA în Microsoft Excel

Anonim

Este ușor să redați fișiere audio în format WAV. Trebuie doar să știți numele fișierului sunetului pe care doriți să îl redați,
și decideți dacă doriți ca macro-ul să aștepte în timp ce sunetul este redat sau nu. Iată un exemplu:

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 (WavFileNit) = "Then Sub 'fără fișier de redat Dacă așteptați apoi' redați sunetul înainte de a rula un alt cod sndPlaySound WavFileName, 0 Altfel 'redați sunetul în timp ce codul rulează sndPlaySound WavFileName, 1 End If End Sub Sub TestPlayWavFile () PlayWavFile "c: \ foldername \ soundfilename. wav ", False MsgBox" Acest lucru este vizibil în timp ce sunetul este redat … "PlayWavFile" c: \ foldername \ soundfilename.wav ", True MsgBox" Acest lucru este vizibil după ce sunetul este terminat de redat … "End Sub