excel打开和关闭光驱的宏代码

excel打开和关闭光驱的宏代码

用下面的宏代码可以打开或关闭电脑中默认的光驱。方法是：

1.按Alt+F11打开VBA编辑器。

2.在代码窗口中输入下列代码：

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, 0End Sub

Sub CloseDefaultCDDVD()‘关闭光驱mciSendStringA "Set CDAudio Door Closed", 0&, 0, 0End Sub

版权声明：本文内容由网络用户投稿，版权归原作者所有，本站不拥有其著作权，亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容，请联系我们jiasou666@gmail.com 处理，核实后本网站将在24小时内删除侵权内容。