Microsoft ExcelでVBAを使用してCD-ROMトレイを開閉し、

投稿日: 2020年10月22日 2020年11月12日
タグ: general-topics-in-vba

以下のマクロを使用して、CD-ROMトレイ/ドアを開閉できます。 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