VBAでjavascriptで生成されたページの取得

前提・実現したいこと

VBAでスクレイピングを行うプログラムを作っております。
ECサイトの決済ページのHTMLを取得したかったのですが、
javascriptで生成されているらしくHTMLが取得できません。

プログラム初心者の為、ご教授お願いいたします<m(__)m>

発生している問題・エラーメッセージ

エラーメッセージ

該当のソースコード

Dim ie As InternetExplorer
Dim ret As String　’取得目的のＨＴＭＬを格納

Set ie = CreateObject("InternetExplorer.Application")
On Error Resume Next
ie.Visible = True

ie.navigate "https://XXXXXXXXXXXXX"

Do While ie.Busy Or ie.readyState < READYSTATE_COMPLETE
'outputLog ie.Busy & "|" & ie.readyState, 0
DoEvents
Loop

ret = ie.document.getElementsByTagName("HTML")(0).outerHTML

試したこと

他サイト等を検索すると、クライアントの処理が終わってないまま、
getElementsByTagNameを行っているとあった為、ブレイクポイントを置き
ページが完全に遷移するまでまってから、処理を走らせても結果は同じでした。

Ｃｈｏｍｅ等で「ページのソースを表示」を行ってもjavaScriptが書かれたページ
を取得できるたけで、表示されているＨＴＭＬは取得できませんでした。。

右クリックで「ページを保存」を行うと、該当のＨＴＭＬはダウンロードできますが
プログラムで取得を行いたいです。。。

補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

行動規範の内容に同意します

回答1件

ダメもとでIEでページの全ソースを取得する関数を試してみてください。
IEで全ソースを取得する - VBA、IE制御

VBA
1Function getHTMLSource(ByVal objIE As Object) As String
2    Dim objItem As Object
3    Dim src As String
4    For Each objItem In objIE.document.all
5        src = UCase(objItem.innerHTML)
6        If InStr(src, "<HEAD") Then
7            If InStr(src, "</BODY>") Then
8                getHTMLSource = objItem.innerHTML
9                Exit Function
10            End If
11        End If
12    Next objItem
13    getHTMLSource = ""
14End Function

投稿2019/06/18 12:45

TanakaHiroaki

総合スコア1063

mash_ken

2019/06/19 10:13

ご回答有難うございます！提示のソースを試してみましたが、結果は同じでした。。他の似たようなサイトに対しても試してみましたが、普通に目的のHTMLが取れてくるサイトがほとんどでしたが、たまにとれてくれないサイトがいくつかあるという感じでした。取り急ぎご報告させて頂きます<m(__)m> もう少し自分でも調べてみます。。