Excel vba打开和关闭电脑中的光驱

Excel中使用VBA代码可以做很多事情。比如操作系统的操作。

这里分享一个可以打开或关闭电脑中默认的光驱。

详细源码：

Private Declare Sub mciSendStringA Lib "winmm.dll" (ByVal lpstrCommand As String, ByVal lpstrReturnString As Any, ByVal uReturnLength As Long, ByVal hwndCallback As Long)
Sub OpenDefaultCDDVD()
'    打开光驱
    mciSendStringA "Set CDAudio Door Open", 0&, 0, 0
End Sub
Sub CloseDefaultCDDVD()
'    关闭光驱
    mciSendStringA "Set CDAudio Door Closed", 0&, 0, 0
End Sub

参考至：Office教程学习网