|  

» 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:

VIEW ALL BOOKS

Recommended Books:

Print Tip
Add to My Tips
Rate This Tip
12 34 5
Rating: 2.54     Views: 16977
No comments have been submitted.
Click here to post comment
For Registered Users
Click here to Regiser
For Guest
Name
Comment Title
Comments


Terms and Conditions of use

The applications/code on this site are distributed as is and without warranties or liability. In no event shall the owner of the copyrights, or the authors of the applications/code be liable for any loss of profit, any problems or any damage resulting from the use or evaluation of the applications/code.

Copyright © 2003 ExcelTip.com Microsoft, Microsoft Excel is a U.S. registered trademark of Microsoft Corporation