关于我们 | 友情链接 | 免责声明 | Tag标签 | Office教程网 - 关注office操作技能技巧教程!
你的位置:主页 > Excel教程 >

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

时间:2018-03-31 22:13  网站:office教程网 www.office26.com   编辑:admin

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

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

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


标签(Tag):Excel excel2013
------分隔线----------------------------
------分隔线----------------------------

相关文章