VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

CD-Laufwerk öffnen und schließen

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

    


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