A 回答 (2件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
こんな内容は、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
- 回答日時:
ドライブ文字("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
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
ハマっている「お菓子」を教えて!
この世には、おいしいお菓子がありすぎて……。 次何を食べたらいいか迷っています。 みなさんが今、ハマっている「お菓子」を教えてください!
-
【コナン30周年】嘘でしょ!?と思った○○周年を教えて【ハルヒ20周年】
2024年は「名探偵コナン30周年」「涼宮ハルヒ20周年」などを迎えますが、 あなたが「もうそんなに!?」と驚いた○○周年を教えてください。
-
メモのコツを教えてください!
メモを取るのが苦手です。 急いでメモすると内容がごちゃごちゃになってしまったり、ひどいときには全く読めない時もあります。
-
【大喜利】【投稿~10/21(月)】買ったばかりの自転車を分解してひと言
【お題】 ・買ったばかりの自転車を分解してひと言
-
14歳の自分に衝撃の事実を告げてください
タイムマシンで14歳の自分のところに現れた未来のあなた。 衝撃的な事実を告げて自分に驚かせるとしたら何を告げますか?
-
VBSでCDトレイのオープン/クローズのコーディング方法わかりません。
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・14歳の自分に衝撃の事実を告げてください
- ・架空の映画のネタバレレビュー
- ・「お昼の放送」の思い出
- ・昨日見た夢を教えて下さい
- ・ちょっと先の未来クイズ第4問
- ・【大喜利】【投稿~10/21(月)】買ったばかりの自転車を分解してひと言
- ・メモのコツを教えてください!
- ・CDの保有枚数を教えてください
- ・ホテルを選ぶとき、これだけは譲れない条件TOP3は?
- ・家・車以外で、人生で一番奮発した買い物
- ・人生最悪の忘れ物
- ・【コナン30周年】嘘でしょ!?と思った○○周年を教えて【ハルヒ20周年】
- ・ハマっている「お菓子」を教えて!
- ・最近、いつ泣きましたか?
- ・夏が終わったと感じる瞬間って、どんな時?
- ・10秒目をつむったら…
- ・人生のプチ美学を教えてください!!
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・都道府県穴埋めゲーム
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBA シートのボタン名を変更し...
-
VBA(エクセル)で自動的にボタン...
-
ユーザーフォームに別シートか...
-
アイコンとボタンの違い
-
VBA CommandButtonの文字ずれ
-
プロシージャからイベントをコ...
-
フォームの再読み込み
-
ボタンをマウスで押し続けたと...
-
VBAで多数のプログラムを一つの...
-
入力されたかどうか、オプショ...
-
Excel VBA Application.caller...
-
VBA IE通知バーの制御 バー内の...
-
VBA マクロでの網掛けについて
-
3つのオプションボタンの場所...
-
C#でSendInputを使ったサンプル...
-
[VB.net] ボタン(Flat)のEnable...
-
フォームのアイコンが行方不明...
-
Vba 電卓 一文字消すボタン
-
vb.net タイマーに引数を渡す
-
【VBA】Accessを終了する前にメ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBA シートのボタン名を変更し...
-
VBA(エクセル)で自動的にボタン...
-
ユーザーフォームに別シートか...
-
フォームの再読み込み
-
VBA CommandButtonの文字ずれ
-
アイコンとボタンの違い
-
Excel VBA Application.caller...
-
コマンドボタンやイメージにマ...
-
閉じると「+」になり開くと「-...
-
VBAのボタンの位置が変わって困...
-
[Excel VBA]コマンドボタンの入...
-
VB.net でトグルボタンを実現し...
-
Access VBA でデータペーストを...
-
セルをマクロのボタンにしたい。
-
ボタンをマウスで押し続けたと...
-
VBAで多数のプログラムを一つの...
-
プロシージャからイベントをコ...
-
ASP.Net ラベルの内容をすぐに...
-
TextBoxでEnterキーを押すと、...
-
他フォームのクリックイベント取得
おすすめ情報