ExcelVBAでWeb上のmp3ファイルを再生したい。

Question

weblio辞書というサイトから英単語の情報を取得するプログラムをExcelVBAで組んでいます。

A列に英単語、B列に「発音」という文字があるとき、B列の「発音」というセルを右クリックしたときに、Web上にあるmp3ファイルを再生できるようにしたいです。

厳密にいうとハイパーリンクを設定すればブラウザ起動で再生はできるのですが、できればブラウザを立ち上げずにmp3ファイルを再生したいのですが、可能でしょうか。

例えば、セルA2に「people」という単語が入力されているとき、セルB2の「発音」セルを右クリックすると、

URL：https://ejje.weblio.jp/content/people
からmp3ファイル（HTML以下参照）のURLを取得し、音声が流れるようにしたいです。

（一部抜粋）
<audio class="contentAudio" controls="controls" preload="none">
  <source src="https://weblio.hs.llnwd.net/e7/img/dict/kenej/audio/S-AB58A66_E-AB5A8C8.mp3" type="audio/mpeg">
</audio>

VBAでは以下のようなプログラムを組みました。

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    'B列を右クリックしたときのみイベント発生
    If Target.Row > 0 And Target.Column = 2 Then
        
        'IEを起動し、Weblioのページを非表示で開く
        Dim objIE As InternetExplorer
        Set objIE = New InternetExplorer
        objIE.Visible = False
        objIE.navigate WEBLIO_URL & "/content/" & Cells(Target.Row, 1)
        
        'mp3ファイルのURLを取得
        Dim sourceTags As IHTMLElementCollection
        Set sourceTags = objIE.document.getElementsByTagName("source")

        Dim srcTag As IHTMLElement
        Dim soundSrc As String
        For Each srcTag In sourceTags
            soundSrc = srcTag.src
            Exit For
        Next
        
        Shell "C:\Program Files\Windows Media Player\wmplayer.exe /play /close" & soundSrc
    End If
End Sub

URLの取得までは確認できているのですが、音声の再生まではできていません。
Web上のmp3をクライアント上で再生する場合、どのような処理を追加すればよろしいのでしょうか。

ご教示をお願い致します。

Answer 1

感ですけどieでそのまま遷移したら音鳴らないんですか？

objIE.navigate soundSrc

あとはgoogle chromeとかブラウザで開けば…もちろん閉じる方法が別に必要になるけど。

Shell "cmd /c start https://weblio.hs.llnwd.net/e7/img/dict/kenej/audio/S-AB58A66_E-AB5A8C8.mp3"

Comments

[umai29]

ご回答ありがとうございます。すみません、説明が不足しておりました。ハイパーリンクを設定すればブラウザ起動で音声を再生できるのですが、できればブラウザを起動せずにmp3をWindows Media Playerみたいなソフトで再生できないかと思いまして。ブラウザ起動しても、せめて非表示状態で音を再生するのみにしたいです。よろしくお願い致します。

[sousuke]

それはshellの引数でできるのでは？vbHydeとかvbMinimizedNoFocusでいいんじゃないですかね？