VBAでDVDのトレイを開く。、

VBAの初心者です
コマンドボタンのクリックでDVDのトレイを開く部分で
フリーソフトのコード：

Dim wmp
Set wmp = CreateObject("WMPlayer.OCX")
wmp.cdromcollection.item(0).eject()

をそのままコマンドボタンプロシージャに張り付けたところ3行目の
wmp.cdromcollection.item(0).eject()のところで「コンパイルエラー・構文エラー」
が出ます。解決法があれば教えてください。

No.6 回答者： piroin654 回答日時： 2011/07/29 00:16

バージョンは、Windows Media Player　のヘルプを

クリックするとバージョンの項があります。それを
クリックして調べてみてください。

この回答への補足

一般的にヘルプでバージョンが分かることは知っていますが、
何故か、WMPにヘルプの項目がありません。尚、使用中の
パソコンは１年半前に買ったVAIOのVPCEB17FJ(新品)という
機種でOSはWindows7です。

補足日時：2011/07/29 11:33

No.5 回答者： piroin654 回答日時： 2011/07/28 23:04

Windows Media Playerが起動できるならば、

そのバージョンを調べてみてください。

No.4 回答者： piroin654 回答日時： 2011/07/28 22:59

もう一つ調べてみてください。

以下のフォルダに、

C:\WINDOWS\system32



wmp.dll

はありますか？



また、Windows Media Player　は起動できますか？

この回答への補足

wmp.dllはあります。Windows Media Player　は起動できますが、バージョンの調べ方がわかりません。
尚、勝手ながら、次のご回答を見られるのは、明日(２９日)午前１１時ごろになると思われます。

補足日時：2011/07/28 23:54

No.3 回答者： piroin654 回答日時： 2011/07/28 20:54

以下のフォルダに、

C:\Program Files\Windows Media Player



wmplayer.exe

があるか、確認してみてください。

この回答への補足

wmplayer.exeはありません。wmplayerはあります。

補足日時：2011/07/28 22:26

No.2 回答者： piroin654 回答日時： 2011/07/28 17:24

WMPlayer.OCX.7

としていましたが、バージョンの違いがあるかもしれないので、

WMPlayer.OCX


としてみてください。


それと、最後に

Set wmp = Nothing
End Sub

のように、
Set wmp = Nothing
を付け加えておいてください。

この回答への補足

再回答ありがとうございます

(1)
Private Sub CommandButton1_Click()

Dim wmp
Dim cdromCol
Dim i
Set wmp = CreateObject("WMPlayer.OCX")
Set cdromCol = wmp.cdromCollection
For i = 0 To cdromCol.Count - 1
cdromCol.Item(i).Eject
Next
Set wmp = Nothing
End Sub

(2)
Private Sub CommandButton1_Click()

Dim wmp
Dim cdromCol
Dim i
Set wmp = CreateObject("WMPlayer.OCX")
Set cdromCol = wmp.cdromCollection
If cdromCol.Count >= 1 Then
cdromCol.Item(0).Eject
end if
Set wmp = Nothing
End Sub

としましたが、やはり、いずれの場合にも
Set wmp = CreateObject("WMPlayer.OCX.7")の行で
「オートメーションエラーです。エラーを特定できません」
というエラーが出ます。

補足日時：2011/07/28 19:46

No.1 回答者： piroin654 回答日時： 2011/07/27 10:03

以下では？

Dim wmp
Dim cdromCol
Dim i
Set wmp = CreateObject("WMPlayer.OCX.7")
Set cdromCol = wmp.cdromCollection
If cdromCol.Count >= 1 Then
cdromCol.Item(0).Eject
'あるいは
'For i = 0 To cdromCol.Count - 1
'cdromCol.Item(i).Eject
'Next
End If

この回答への補足

ご回答ありがとうございます

(1)
Private Sub CommandButton1_Click()

Dim wmp
Dim cdromCol
Dim i
Set wmp = CreateObject("WMPlayer.OCX.7")
Set cdromCol = wmp.cdromCollection
For i = 0 To cdromCol.Count - 1
cdromCol.Item(i).Eject
Next

End Sub

(2)
Private Sub CommandButton1_Click()

Dim wmp
Dim cdromCol
Dim i
Set wmp = CreateObject("WMPlayer.OCX.7")
Set cdromCol = wmp.cdromCollection
If cdromCol.Count >= 1 Then
cdromCol.Item(0).Eject
end if

End Sub

いずれの場合にも
Set wmp = CreateObject("WMPlayer.OCX.7")の行で
「オートメーションエラーです。エラーを特定できません」
というエラーが出ます。

補足日時：2011/07/28 13:41