Abrir y cerrar la bandeja del CD-ROM utilizando VBA en Microsoft Excel

Publicado en: 2020年10月23日 2020年11月12日
Etiquetas: general-topics-in-vba

Con las macros siguientes, puede abrir y cerrar la bandeja / puerta del CD-ROM. Declare Sub mciSendStringA Lib «winmm.dll» (ByVal lpstrCommand como cadena, _ ByVal lpstrReturnString como cualquiera, ByVal uReturnLength como largo, _ ByVal hwndCallback como largo)

Sub OpenCDTray()

mciSendStringA "Set CDAudio Door Open", 0&, 0, 0

End Sub

Sub CloseCDTray()

mciSendStringA "Set CDAudio Door Closed", 0&, 0, 0

End Sub