Excel und VBA: Formeln, Programmierung, Lösungen
Die Excel/VBA-Beispiele
Thema
CD-Laufwerk öffnen und schließen
Gruppe
System
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