WAV failu atskaņošana, izmantojot VBA programmā Microsoft Excel

Anonim

Ir viegli atskaņot skaņas failus WAV formātā. Jums jāzina tikai tās skaņas faila nosaukums, kuru vēlaties atskaņot,
un izlemiet, vai vēlaties, lai makro gaida skaņas atskaņošanu vai nē. Šeit ir piemērs:

Publiskās deklarēšanas funkcija sndPlaySound Lib "winmm.dll" _ Alias ​​"sndPlaySoundA" (ByVal lpszSoundName As String, _ ByVal uFlags as Long) As Long PlayWavFile (WavFileName As String, Wait As Boolean) If Dir (WavFileNit) = " Apakšdaļa “nav faila, ko atskaņot, ja pagaidāt”, atskaņo skaņu, pirms tiek palaists kods sndPlaySound WavFileName, 0 Citādi ”atskaņo skaņu, kamēr kods darbojas. wav ", False MsgBox" Tas ir redzams skaņas atskaņošanas laikā … "PlayWavFile" c: \ foldername \ soundfilename.wav ", True MsgBox" Tas ir redzams pēc skaņas atskaņošanas pabeigšanas … "End Sub