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で質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBA 複数のブックに同じ列を表示させる方法 2 2022/07/20 23:49
- Excel(エクセル) VBA セルの値と同じ名前のシートにデータを貼り付けするやり方を教えてください 2 2022/05/17 16:26
- ブルーレイ・プレーヤー・レコーダー ブルーレイプレイヤーのディスクトレイの開閉不備 5 2023/06/26 07:54
- Excel(エクセル) エクセル バーコード作成で他のシートを参照するには? 2 2023/05/03 16:57
- Visual Basic(VBA) VBAコードを張り付け後のエクセルの進め方 2 2023/02/07 18:24
- au(KDDI) URBANO L03の起動画面が「URBANO」ロゴのまま停止しています 3 2023/01/01 13:35
- Visual Basic(VBA) ExcelのVBAを使い、複数シートの同一箇所を、同一条件にて一括でソルバーを回す方法について 1 2022/04/23 11:49
- 高校 制服の着こなし 2 2023/07/31 12:55
- Gmail g mailで「すべて送受信」 4 2022/06/02 14:47
- Excel(エクセル) エクセル VBAでBook モジュールのプロシージァ(コード)に除外シートを設定したい 1 2023/01/11 15:53
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBA シートのボタン名を変更し...
-
VBA(エクセル)で自動的にボタン...
-
Excel VBA Application.caller...
-
Access VBA でデータペーストを...
-
ユーザーフォームに別シートか...
-
コマンドボタンやイメージにマ...
-
フォームの再読み込み
-
VBAで多数のプログラムを一つの...
-
セルをマクロのボタンにしたい。
-
Vba 電卓 一文字消すボタン
-
C#で動的に作ったtextboxを消す。
-
VBAでオプションボタンによって...
-
VBA CommandButtonの文字ずれ
-
TextBoxでEnterキーを押すと、...
-
プロシージャからイベントをコ...
-
MFC - ボタンの処理について
-
アクセスカウンタでリロード時...
-
閉じると「+」になり開くと「-...
-
ボタン(コントロール)を丸くしたい
-
ユーザーフォーム中の入力順番...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBA シートのボタン名を変更し...
-
VBA(エクセル)で自動的にボタン...
-
フォームの再読み込み
-
ユーザーフォームに別シートか...
-
VBA CommandButtonの文字ずれ
-
セルをマクロのボタンにしたい。
-
コマンドボタンやイメージにマ...
-
Excel VBA Application.caller...
-
VBAのボタンの位置が変わって困...
-
Access VBA でデータペーストを...
-
プロシージャからイベントをコ...
-
他のアプリケーションとの連携
-
閉じると「+」になり開くと「-...
-
C#で動的に作ったtextboxを消す。
-
ボタンをマウスで押し続けたと...
-
VBA でのボタンの移動について
-
CommandButtonのCaptionを変化...
-
ボタン
-
TextBoxでEnterキーを押すと、...
-
VB.net でトグルボタンを実現し...
おすすめ情報