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教程学习网