Predvajanje datotek WAV z uporabo VBA v programu Microsoft Excel

Anonim

Zvočne datoteke v formatu WAV je enostavno predvajati. Vedeti morate le ime datoteke zvoka, ki ga želite predvajati,
in se odločite, ali želite, da makro počaka med predvajanjem zvoka ali ne. Tukaj je primer:

Javno razglasi funkcijo sndPlaySound Lib "winmm.dll" _ Alias ​​"sndPlaySoundA" (ByVal lpszSoundName As String, _ ByVal uFlags As Long) As Long Sub PlayWavFile (WavFileName As String, Wait As Boolean) Če Dir (WavFileNa Potem Ex Sub 'no file to play If Wait Then' predvajajte zvok, preden zaženete več kode sndPlaySound WavFileName, 0 Drugače 'predvajajte zvok, medtem ko se koda izvaja sndPlaySound WavFileName, 1 End If End Sub Sub TestPlayWavFile () PlayWavFile "c: \ ime datoteke \ ime zvočne datoteke. wav ", False MsgBox" To je vidno med predvajanjem zvoka … "PlayWavFile" c: \ ime mape \ ime zvočne datoteke.wav ", True MsgBox" To je vidno po končanem predvajanju zvoka … "End Sub