Öffnen und schließen Sie das CD-ROM-Laufwerk mit VBA in Microsoft Excel
Mit den folgenden Makros können Sie das CD-ROM-Fach / die CD-ROM-Tür öffnen und schließen. Deklarieren Sie Sub mciSendStringA Lib „winmm.dll“ (ByVal lpstrCommand As String, _ ByVal lpstrReturnString As Any, ByVal uReturnLength As Long, _ ByVal hwndCallback As Long)
Sub OpenCDTray() mciSendStringA "Set CDAudio Door Open", 0&, 0, 0 End Sub Sub CloseCDTray() mciSendStringA "Set CDAudio Door Closed", 0&, 0, 0 End Sub