VBAを用いて、HPのsvgタブの画像をエクセルにコピペする方法

Question

VBAを用いて、ウェブスクレイピングをしています。
svgタグで記載されている画像をコピーしてエクセルに貼り付けたいと思っています。
そもそも、VBAでそんなことは可能なのでしょうか？

https://www.shiki.jp/stage_schedule/?aj=0&rid=0057&ggc=4017#201901
のサイトを開き、13：30　と記載されているカレンダーがをクリックすると、
座席表が表示されますこのその座席表をエクセルに貼り付けたいと考えています。
もしやりかたがあるならご教授ください。よろしくお願い致します。

Sub 開いたページをクリックする()
Dim objShell As Object              
Dim objWindow As Object             
Dim objIE As InternetExplorer
Dim キーワード As String
Dim strIFrameSrc As String
Dim objLink As Object
Dim タイトル   As String
タイトル = "ライオンキング　東京 | 公演情報 | 劇団四季"
Set objIE = Nothing
    '---------開いているのページを取得する処理---------
    Set objShell = CreateObject("Shell.Application")
    For Each objWindow In objShell.Windows
        'IEウィンドウの判定
        If InStr(LCase(objWindow.FullName), "iexplore.exe") > 0 Then
            'titleに「タイトル」が含まれていれば該当のページと判定
            If InStr(objWindow.Document.Title, タイトル) > 0 Then
                Set objIE = objWindow
                Exit For
            End If
        End If
    Next

     'titleページが見つからなかった場合の処理
    If objIE Is Nothing Then
        MsgBox "ページの取得ができませんでした。"
        End
    End If
    
Dim objtag As Object
Set objtag = objIE.Document.getElementsByTagName("a")
For i = 0 To objtag.Length - 1
 If InStr(objtag(i).outerHTML, "13:30") > 0 Then
  objIE.Document.Script.setTimeout "javascript:document.getElementsByTagName('a')(" & i & ").click()", 200
 End If
Next i
Sleep 1000

End sub

Answer 1

このままでは丸投げと判断され回答が付かないかと思います。
直接の回答ではないですが、ヒントを。

まずはやりたいことを細分化しましょう。
「VBAでWebページの内容(HTML)を取得する」とか
「VBAでWeb上の画像を取得する」とか。

そしてそれぞれの方法を調べて、それでもなお分からないところがあれば、
それを改めて質問すれば回答が付きやすいかと思います。

Comments

[rickey]

回答がつかない理由やどうすればつくかまで、教えていただけるとは、本当に感謝です。返事が遅くなり、申し訳ありません。勉強して、もう少し、質問の場所を絞れるように努力します。ありがとうございました。

Answer 2

まず、求めている回答がわかりません、
該当ページから13:30である部分を見つけ出してクリックする部分をどこかからコピペしてきたコードで
作ったがうまく動かないのでしょうか？
それとも直接のDOM操作ではうまく行かなかったためDOM操作でjavascriptを埋め込むコードを
自力でかける技術まではお持ちなのでしょうか？

そこまではできるのであれば、
SVGタグについての理解が及んでいないかと思われます。

「svgタグで記載されている画像」と表現なさっておられますが、
SVGタグの中身はXMLであり、殆どの場合他の画像ファイルのように単体のバイナリファイルではありません、
HTML内に静的に埋め込まれている場合や該当ページのように動的に生成される方法で使用されることが多く、
単に元のURLへアクセスして保存するという方法が困難です。

保存を行う場合はページ表示（XML生成）後にDOM操作にて該当のDOMを操作しXMLを取り出すことにより可能です。
この手順で保存した場合は取得出来たものはXMLで記載されたベクターデータであり、
VBAでのラスタデータ（ビットマップデータ）化は難しい為、
表示にはSVG対応が必要となりますので、
エクセルシート上にMicrosoft Web Browser ActiveXコントロールを貼り付け、
そのソースを編集することによりシート上で表示が可能です、

もう一つの手法としては、DOM操作にてPNG等の画像化してダウンロードするJavascriptのコードを埋め込むという手もあります、この場合はJavascriptのコーディングも必要となる代わりに、
通常の画像ファイルとなりますので後の取扱が楽になります。

また、「そこまで本気の操作はいらないがとりあえず保存したい」という場合は、
IEを操作し画面いっぱいに表示、DOMを操作しSVGを画面いっぱいに表示させ、
スクリーンショットを撮る操作を行うという安易な方法もあります。

いずれにせよ結構高度（というかややこしい）事をしておりますので、
もしコピペしたコードを深い理解なく使用しているレベルの場合は、
まずは普通のページのクローリングから勉強なさらないと無理かと思われます。

Comments

[rickey]

ご回答ありがとうございます。コピペを繰り返すレベルに近く、最近javascriptの勉強を始めたところです。おそらく理解していないから、質問もあいまいなのかと思います。
このお返事を読んで、勉強不足を感じました。まず、返事してくださったキーワードを検索しながら理解してみます。今の自分では、難しい、基礎ができていない、ということがわかっただけでもよかったです。
しっかり勉強しなおします。
ご丁寧に返事くださって本当にありがとうございます。

ちなみに求めている回答は
「単に元のURLへアクセスして保存するという方法が困難です。」なのか、可能なのかが知りたかったので、sinobu様の回答が助かりました。

[shinobu_osaka]

承知いたしました。

SVGについてはエクセルで取り扱うにはかなり面倒ですので、
手軽にスクリーンショットしてしまうのが良いかもしれません。

Javascriptを使っているのがわざとでないのであれば、
まずはともかく普通のDOM操作を勉強してみてください。
ex: .document.GetElementsByTagName("a")(i).Click

ExcelVBAでのDOM操作は得意なので回答依頼を行っていただいても結構です。
では頑張ってください。