VBA Excel - Abrindo e fechando o CD-ROM - Open and close the CD-ROM tray using VBA in Microsoft Excel

Já sei, já sei. Muitos perguntarão: 


_ Prá que aprender a abrir a gaveta do CD-ROM?


Perceba que não estarão apenas aprendendo 'a abrir a gaveta do CD-ROM', antes estará aprendendo a manipular periféricos em uma máquina, utilizando uma API do Windows.


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







Tags: Bernardes, MS, Microsoft, Windows, Office, VBA, Excel, CD, CD-ROM, CDROM, mciSendStringA,winmm.dll, API, DLL, Lib

André Luiz Bernardes

A&A® - Work smart, not hard.

VBA Blogs

  

bernardes@.com