Microsoft Excel

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