Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Wav-Datei abspielen und mit ESC abbrechen

Gruppe

Ton

Problem

Wie kann ich eine WAV-Datei 10 mal hintereinander abspielen lassen und die Schleife mit der ESC-Taste unterbrechen?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

StandardModule: basMain

Declare Function sndPlaySound32 Lib "winmm.dll" _
    Alias "sndPlaySoundA" (ByVal lpszSoundName _
    As String, ByVal uFlags As Long) As Long

Sub SoundStart()
   Dim iCounter As Integer
   Application.EnableCancelKey = xlErrorHandler
   On Error GoTo ERRORHANDLER
   For iCounter = 1 To 10
      Call sndPlaySound32(Range("A1").Value, 1)
      Application.Wait Now + TimeSerial(0, 0, 2)
   Next iCounter
ERRORHANDLER:
End Sub