DVDトレイを開ける

質問

VBA初心者です。エクセルのシート上にコマンドボタンを張り付け、ボタンのクリックでDVDトレイを開くようにしたいのですが、手順を教えてください。丸投げの質問で申し訳ありません。

回答No.2

imogasi

こんな内容は、VBAの範囲を超えていて、APIの領分のようだ。VBA初心者がやることではなかろう。
ただしWEBには記事がある。WEB照会ぐらいして調べたらどうです。
それを書いておく。
Private Declare Function MciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpszCommand As String, ByRef lpszReturnString As String, ByVal cchReturn As Integer, ByVal hwndCallback As Integer) As Integer
Sub test02()
MciSendString "Set CDAudio Door Open Wait", "", 0, 0
End Sub
Sub test03()
MciSendString "Set CDaudio Door Closed", "", 0, 0
End Sub
クリックイベントで使うならイベントに挟んで使う。
一応小生のテストでは開閉した。

回答No.1

DIooggooID

ドライブ文字（"E:\"）を適宜変更してください。

Sub Macro1()

Dim CdOpen As Object
Set CdOpen = CreateObject("Shell.Application")
On Error Resume Next
CdOpen.Namespace("E:\").Items.Item.InvokeVerb "取り出し(&J)"
On Error GoTo 0
Set CdOpen = Nothing

End Sub