箇条書きで恐縮です。
只今下記、参考サイトから各企業のURLを抜き出し、各下層ページから”欲しい情報”を抜き出したいと考えております。
■参考サイト
■下層ページ(例)
■欲しい情報
代表者名
会社名
資本金
業種
人数
求人採用
企業HP
そして、現在各企業のURLを取得する際に困っています。
こちらのコードでURLが取得出来ない理由をご教示いただけますと幸いです
VBA
1Sub listPost() 2 3Dim objIE As InternetExplorer 'IEオブジェクトを準備 4Set objIE = CreateObject("Internetexplorer.Application") '新しいIEオブジェクトを作成してセット 5exlrow = 1 6 7'URLを取得 8For i = 1 To 140 9 objIE.Visible = True 'IEを表示 10 objIE.navigate "~~~~~~" & i 'IEでURLを開く 11 12 Do While objIE.Busy = True Or objIE.readyState < READYSTATE_COMPLETE '読み込み待ち 13 14 DoEvents 15 16 Loop 17 18 19 Dim htmlDocURL As HTMLDocument 'HTMLドキュメントオブジェクトを準備 20 Set htmlDocURL = objIE.document 'objIEで読み込まれているHTMLドキュメントをセット 21 22 23 24For V = 0 To 7 25 Dim elList As IHTMLElementCollection 26 Set elList = htmlDocURL.getElementsByClassName("list clearfix") 27 Set elList = htmlDocURL.getElementsByClassName("col2") 28 29 30 'ここから 31 32 Dim el As IHTMLElement 33 For Each el In elList 34 Worksheets("Sheet1").Range("A" & exlrow + 1).Value = el.getElementsByTagName("a")(V).href 35 Next el 36 37 'ここまで 38 39 objIE.Visible = False 40 41Next V 42 43Next i 44 45 46End Sub 47
回答1件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2017/04/20 11:25
2017/04/20 11:29
2017/04/20 11:46