WAV-tiedostojen toistaminen VBA: n avulla Microsoft Excelissä

Anonim

Äänitiedostojen toistaminen WAV-muodossa on helppoa. Sinun tarvitsee vain tietää toistettavan äänen tiedostonimi,
ja päätä, haluatko makron odottavan, kunnes ääni soi vai ei. Tässä on esimerkki:

Julkinen ilmoitustoiminto sndPlaySound Lib "winmm.dll" _ Alias ​​"sndPlaySoundA" (ByVal lpszSoundName As String, _ ByVal uFlags As Long) Kuten Long Sub PlayWavFile (WavFileName As String, Wait As Boolean) If Dir (WavFileName) = " Ala 'ei toistettavaa tiedostoa, jos odotat', toista ääni ennen kuin käytät enää koodia sndPlaySound WavFileName, 0 Muu 'toista ääni koodin ollessa käynnissä sndPlaySound WavFileName, 1 Lopeta Jos Lopeta alitesti TestPlayWavFile () PlayWavFile "c: \ kansion nimi \ äänitiedostonimi. wav ", False MsgBox" Tämä näkyy, kun ääntä toistetaan… "PlayWavFile" c: \ kansion nimi \ äänitiedostonimi.wav ", True MsgBox" Tämä näkyy, kun ääni on toistettu… "Lopeta alaosa