Reproducción de archivos WAV usando VBA en Microsoft Excel

Anonim

Es fácil reproducir archivos de sonido en formato WAV. Solo necesita saber el nombre de archivo del sonido que desea reproducir,
y decida si desea que la macro espere mientras se reproduce el sonido o no. Aquí hay un ejemplo:

Función de declaración pública sndPlaySound Lib "winmm.dll" _ Alias ​​"sndPlaySoundA" (ByVal lpszSoundName como cadena, _ ByVal uFlags tan largo) As Long Sub PlayWavFile (WavFileName como cadena, esperar como booleano) Si Dir (WavFileName) = "" Luego salga Sub 'no hay archivo para reproducir If Wait Then' reproducir sonido antes de ejecutar más código sndPlaySound WavFileName, 0 Else 'reproducir sonido mientras se ejecuta el código sndPlaySound WavFileName, 1 End If End Sub Sub TestPlayWavFile () PlayWavFile "c: \ foldername \ soundfilename. wav ", False MsgBox" Esto es visible mientras se reproduce el sonido … "PlayWavFile" c: \ foldername \ soundfilename.wav ", True MsgBox" Esto es visible después de que el sonido termina de reproducirse … "End Sub