Afspilning af WAV-filer ved hjælp af VBA i Microsoft Excel

Anonim

Det er let at afspille lydfiler i WAV-format. Du behøver kun at kende filnavnet på den lyd, du vil afspille,
og beslutte, om du vil have makroen til at vente, mens lyden afspilles eller ej. Her er et eksempel:

Offentlig erklæring Funktion 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 (WavFileName) = "" Then Exit Sub 'ingen fil til afspilning Hvis vent derefter' afspil lyd, før du kører mere kode sndPlaySound WavFileName, 0 Else 'afspil lyd, mens koden kører sndPlaySound WavFileName, 1 End If End Sub Sub TestPlayWavFile () PlayWavFile "c: \ foldername \ soundfilename. wav ", False MsgBox" Dette er synligt, mens lyden afspilles … "PlayWavFile" c: \ mappenavn \ soundfilename.wav ", True MsgBox" Dette er synligt, når lyden er færdig afspillet … "End Sub