質問: False Next V Next i End Sub ```
回答: 26行目の Set elList = htmlDocURL.getElementsByClassName("col2") が何をやりたかったのか分からなかったので、とりあえずコメントアウトして、 For Each el In elList 内で exlrow を加算してやるとうまくいきました。以下コードになります。 **VBA** ``` Sub listPost() Dim objIE As InternetExplorer 'IEオブジェクトを準備 Set objIE = CreateObject("Internetexplorer.Application") '新しいIEオブジェクトを作成してセット exlrow = 1 'URLを取得 For i = 1 To 5 objIE.Visible = True 'IEを表示 objIE.navigate "~~~~~~" & i 'IEでURLを開く Do While objIE.Busy = True Or objIE.readyState < READYSTATE_COMPLETE '読み込み待ち DoEvents Loop Dim htmlDocURL As HTMLDocument 'HTMLドキュメントオブジェクトを準備 Set htmlDocURL = objIE.document 'objIEで読み込まれているHTMLドキュメントをセット For V = 0 To 140 Dim elList As IHTMLElementCollection Set elList = htmlDocURL.getElementsByClassName("list clearfix") ' Set elList = htmlDocURL.getElementsByClassName("col2") 'ここから Dim el As IHTMLElement For Each el In elList Worksheets("Sheet1").Range("A" & exlrow + 1).Value = el.getElementsByTagName("a")(V).href exlrow = exlrow + 1 Next el 'ここまで objIE.Visible = False Next V Next i End Sub ```