Webからのデータ抽出

前提・実現したいこと

VBAでWebからのデータ抽出を試しています。
※以下URLの雑誌一覧の雑誌名をすべて抽出

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

コードを見様見真似で書いてみたのですが、どうしてもリストの途中からの雑誌名しか抽出できない状態です。

該当のソースコード

Sub MySub()

Dim objIE As InternetExplorer
Set objIE = New InternetExplorer

objIE.Visible = True
objIE.navigate "https://magazine.dmkt-sp.jp/list/30_000000"

Do While objIE.Busy = True Or objIE.readyState < READYSTATE_COMPLETE
    DoEvents
Loop

Dim htmlDoc As HTMLDocument
Dim elm As Variant
Set htmlDoc = objIE.document

For Each elm In objIE.document.getElementsByClassName("omission")
Debug.Print elm.innerText
Next elm

End Sub

試したこと

追加で試すべきことがわからず、こちらで質問させていただいている次第です。

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

Windows10/Excel 2016

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

Rocky

2020/06/19 01:49

ぱっと見た感じ問題なさそうですね。＞リストの途中からの雑誌名しか抽出できない状態です。とは具体的にはどのような症状ですか？

tkhthiroko

2020/06/19 01:54

早々にご確認いただきまして有難うございます！具体的には、一覧の一番下段の雑誌名からしかリストが抽出できない、状況です。一覧の一番最初から最後までを抽出したいため、このコードでなぜ途中からになるのかが自力で分からずに質問させていただいた次第です。恐れ入りますが、ご教示いただければ幸いです。

Rocky

2020/06/19 02:02

>一覧の一番下段の雑誌名ブラウザによってそのあたりの挙動異なりますが、html要素で数えた時の9つめのomissionクラス要素である「&premium」の雑誌からしか情報が取れないということですか？それは実行するたびに必ず同じ位置になりますか？ Debug.Print htmlDoc を実行したときに出力されるログを50～100行くらいまで出力いただくことはできますか？

Rocky

2020/06/19 02:13

回答がでましたので修正不要です。

tkhthiroko

2020/06/19 02:19

色々とご教授いただきまして有難うございました！

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

回答1件

ベストアンサー

Debug.Printで出力している内容が後半しか出てないということですよね。
試してみたところ、イミディエイトウィンドウは200行分しか表示されないようです。
以下のようにシートに出してみてください。
556行分のデータが取得できているのがわかると思います。

VBA
1Sub MySub()
2
3    Dim objIE As InternetExplorer
4    Set objIE = New InternetExplorer
5    
6    objIE.Visible = True
7    objIE.navigate "https://magazine.dmkt-sp.jp/list/30_000000"
8    
9    Do While objIE.Busy = True Or objIE.readyState < READYSTATE_COMPLETE
10        DoEvents
11    Loop
12    
13    Dim htmlDoc As HTMLDocument
14    Dim elm As Variant
15    Set htmlDoc = objIE.document
16    
17    Dim r As Long
18    r = 1
19    For Each elm In objIE.document.getElementsByClassName("omission")
20        Cells(r, 1) = elm.innerText
21        r = r + 1
22    Next elm
23
24End Sub
25