VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

WAV-Datei abspielen

Gruppe

API

Bereich

Ton

Thema

WAV-Datei abspielen

Problem

Wie kann ich über einen aufgefangenen Fehler eine WAV-Datei abspielen lassen?

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 LaufwerkARufen()
   On Error Resume Next
   ChDir "irgendwas"
   If Err = 76 Then GoTo ERRORHANDLER
   End
ERRORHANDLER:
   Call sndPlaySound32(Range("A1").Value, 1)
End Sub

    


Beiträge aus dem Excel-Forum zu den Themen API und Ton