» Open and close the CD-ROM tray using VBA in Microsoft Excel
VBA macro tip contributed by Erlandsen Data Consulting offering Microsoft Excel Application development, template customization, support and training solutions
CATEGORY - General Topics in VBA
VERSION - All Microsoft Excel Versions
With the macros below you are able to open and close the CD-ROM tray/door.
Declare Sub mciSendStringA Lib "winmm.dll" (ByVal lpstrCommand As String, _
ByVal lpstrReturnString As Any, ByVal uReturnLength As Long, _
ByVal hwndCallback As Long)
Sub OpenCDTray()
mciSendStringA "Set CDAudio Door Open", 0&, 0, 0
End Sub
Sub CloseCDTray()
mciSendStringA "Set CDAudio Door Closed", 0&, 0, 0
End Sub
Book Store:
Recommended Books:
- Wall Street Journal Guide to Understanding Money and Investing
- Marketing Plans That Work, Targeting Growth and Profitability
- Special Edition Using Microsoft Word 2002
- Positioning: The Battle for Your Mind
- VBA for Modelers: Developing Decision Support Systems Using Microsoft« Excel
- Retire Young, Retire Rich
No comments have been submitted.
