ABRIR CD VIA CODIGO EXCEL VBA

USUARIO.EXCLUIDOS 21/11/2006 20:40:52
#185657
Alguém pode me dar uma ajuda para abrir o drive apartir do código no excel?....eu já vi um código aqui no site mas eu fiz e não deu certo...se alguém puder me ajudaaar......

valeu......
LUIS.FLAVIO 21/11/2006 20:54:36
#185659
Amigo o seu problema está resolvido.

Option Explicit

Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

Private Sub Abrir()
  mciSendString "Set CDAudio Door Open Wait", vbNullString, 0&, 0&
End Sub


Private Sub Fechar()
  mciSendString "Set CDAudio Door Closed Wait", vbNullString, 0&, 0&
End Sub
USUARIO.EXCLUIDOS 22/11/2006 11:59:21
#185752
Dá uma olhada neste arquivo, já tá tudo pronto...
Tópico encerrado , respostas não são mais permitidas
Voltar