WAV failų leidimas naudojant „Microsoft Excel“ VBA

Anonim

Lengva leisti garso failus WAV formatu. Jums tereikia žinoti norimo leisti garso failo pavadinimą,
ir nuspręskite, ar norite, kad makrokomanda lauktų, kol skambės garsas, ar ne. Štai pavyzdys:

Viešoji deklaravimo funkcija sndPlaySound Lib "winmm.dll" _ Pseudonimas "sndPlaySoundA" (ByVal lpszSoundName As String, _ ByVal uFlags as Long) As Long PlayWavFile (WavFileName As String, Wait As Boolean) If Dir (WavFileNit) = " Sub „Nėra failo, kurį reikia paleisti, jei palauk“, paleiskite garsą prieš paleisdami daugiau kodo „sndPlaySound WavFileName“, 0 „Kita“ paleiskite garsą, kol kodas veikia „sndPlaySound“ „WavFileName“, 1 Pabaiga, jei pabaiga Antrasis testas „PlayWavFile“ () „PlayWavFile“ c: aplankų vardas \ garso failo pavadinimas. wav ", False MsgBox" Tai matoma grojant garsui … "PlayWavFile" c: \ foldername \ soundfilename.wav ", True MsgBox" Tai matoma baigus garsą … "Pabaiga