
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ベストアンサー
- 回答日時:
こんばんは
ご質問の意味がちょっと解らないのですが
エラーで終わらせたくないと言う事でしょうか?
ForループをEachで行うのはどうでしょう?(未検証)
For Each obj In objIE.document.getElementsByClassName("_2cXD1uC4eaOih4-zkRgqjU")
Debug.Print obj.outerText
Next
みたいな感じ。
No.1
- 回答日時:
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
画面を強制的に再描画させる方法
-
流れ図(フローチャート)が分か...
-
DOSコマンドのループ内のTIMEコ...
-
VBAの変数は何故「i」から始ま...
-
ループ7回目の悪役令嬢は、元敵...
-
範囲指定したセルを1つずつ飛...
-
正しいWebBrowserの使い方(ル...
-
UWSCの終了の仕方
-
Excel VBA For Nextっていらな...
-
WinAPI「MsgWaitForMultipleObj...
-
Escキーを押すと、中断する時と...
-
EXCEL VBA ユーザーフォームの...
-
ウィーンブリッジ発進回路
-
乱数の桁数指定、または範囲指定。
-
null 参照の例外が実行時に発生...
-
Do whileでExitせず、ループの...
-
プログラミングで難しいと感じ...
-
c++ ランダムウォーク
-
メビウスループの画像
-
なぜⅰなのか?
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
画面を強制的に再描画させる方法
-
UWSCの終了の仕方
-
DOSコマンドのループ内のTIMEコ...
-
範囲指定したセルを1つずつ飛...
-
VBAでの一時停止と再開の方法
-
Escキーを押すと、中断する時と...
-
乱数の桁数指定、または範囲指定。
-
イベントの発生を待つ
-
流れ図(フローチャート)が分か...
-
UWSCに制限時間を付けたいです
-
vb.netです。2次元配列の要素を...
-
VBA for i=1 to lastrow
-
DoEventsが必要な理由について
-
ループフリー
-
VBA Boxが空白の場合のメッセー...
-
VBA ニュースタイトル取得
-
エクセルの当番表を作っていま...
-
Javaの質問です。 この問題の答...
-
テキストボックスの名前に変数...
-
CSVファイルの特定の行だけを読...
おすすめ情報