VBA ニュースタイトル取得

VBAでニュースのタイトルを取得しています。

yahoo newsのタイトル一覧を取得しています。

ループの、iが適当な数でtry and catchで例外処理をしています。

別にこのコードで出来ているのですが・・・・

これを、該当class（"_2cXD1uC4eaOih4-zkRgqjU"）があるだけ繰り返したいのですが、

ニュースのタイトル分だけループを回すなにかいい方法はありますか？




Option Explicit
Sub IEGet03()

Dim objIE As InternetExplorer

Dim detail2 As Variant



Set objIE = New InternetExplorer

Dim i As Integer





objIE.navigate "https://www.yahoo.co.jp/"
objIE.Visible = True
Debug.Print "スタート"


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

detail2 = objIE.document.getElementsByClassName("_1XAfHUWtx6tfYZuWDVjNxZ")(0).outerHTML






On Error GoTo ErrorHandler


For i = 0 To 10

Debug.Print _
objIE.document.getElementsByClassName("_2cXD1uC4eaOih4-zkRgqjU")(i).outerText
Next

ErrorHandler:
Debug.Print "終わり"

Finally:
Debug.Print "終了"



End Sub

No.2 ベストアンサー 回答者： Qchan1962 回答日時： 2021/06/04 02:30

こんばんは

ご質問の意味がちょっと解らないのですが
エラーで終わらせたくないと言う事でしょうか？
ForループをEachで行うのはどうでしょう？（未検証）
For Each obj In objIE.document.getElementsByClassName("_2cXD1uC4eaOih4-zkRgqjU")
Debug.Print obj.outerText
Next
みたいな感じ。

この回答へのお礼

そうです。
実装して、無事エラーがなく出来ました。

有難うございます。

お礼日時：2021/06/05 20:00

No.1 回答者： naktak 回答日時： 2021/06/03 21:45

スクレイピングするより、RSSが提供されていますから、望むRSSを取得して情報を得た方が良さそうです。

https://news.yahoo.co.jp/rss