电脑教程
位置:首页>> 电脑教程>> office教程>> excel打开和关闭光驱的宏代码

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

  发布时间:2022-10-23 22:57:25 

标签:代码,光驱,关闭,打开,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, 0
End Sub

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

0
投稿

猜你喜欢

手机版 电脑教程 asp之家 www.aspxhome.com