Gruppe
API
Bereich
System
Thema
CD-Laufwerk öffnen und schließen
Problem
Wie kann ich über VBA das CD-Laufwerk öffnen und schließen?
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: basMain
Private Declare Function mciExecute Lib "winmm.dll" _
(ByVal lpstrCommand As String) As Long
Sub CD_oeffnen()
Call mciExecute("Set CDaudio door open")
End Sub
Sub CD_schliessen()
Call mciExecute("Set CDaudio door closed")
End Sub