Aprire e chiudere il cassetto del CD-ROM utilizzando VBA in Microsoft Excel

Posted on: 2020年11月12日 2020年11月12日
Tags: general-topics-in-vba

Con le macro riportate di seguito è possibile aprire e chiudere il vassoio / sportello del CD-ROM. Dichiara 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