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

Excel中使用VBA代码可以做很多事情。比如操作系统的操作。这里分享一个可以打开或关闭电脑中默认的光驱。
详细源码：PrivateDeclareSubmciSendStringALib"winmm.dll"(ByVallpstrCommandAsString,ByVallpstrReturnStringAsAny,ByValuReturnLengthAsLong,ByValhwndCallbackAsLong)
SubOpenDefaultCDDVD()
'打开光驱
mciSendStringA"SetCDAudioDoorOpen",0&,0,0
EndSub
SubCloseDefaultCDDVD()
'关闭光驱
mciSendStringA"SetCDAudioDoorClosed",0&,0,0
EndSub
参考至：Office教程学习网