Открытие и закрытие лотка CD-ROM с помощью VBA в Microsoft Excel
С помощью макросов ниже вы можете открывать и закрывать лоток / дверцу CD-ROM. Объявить 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