VBAのIE操作で取得したデータをリスト化 削除
Message#1 2014年10月2日(木)08時31分 From: wan |
VBAのIE操作について、質問をさせていただきます。 はじめまして。VBA超初心者です。 IE操作をしたいがために、VBAを始めたのですが、上手く行かず困っております。 A列とB列に入力された値をURLに組み合わせて、 そのURLにアクセスし、そのサイトからタグ(TDタグ100個目から300個目まで)を取得、 取得したものをC列に表示しリスト化したいのですが、上手くいきません。 どなたか解決方法を教えて頂けないでしょうか。 Sub タグ取得() Dim ie As InternetExplorer Dim Doc As HTMLDocument Dim ObjTag As Object Dim i As Long Dim n As Long Dim j As Long For j = 1 To 10 URL1 = Worksheets("sheet1").Cells(j, 1) URL2 = Worksheets("sheet1").Cells(j, 2) Set ie = CreateObject("InternetExplorer.Application") ie.Visible = False ie.navigate "http://www.xxxxxxxxxxxxxx(" & URL1 & ").html(" & URL2 & ")" Do While ie.Busy Or ie.readyState < READYSTATE_COMPLETE DoEvents Loop Set Doc = ie.document Worksheets("Sheet1").Cells(j, 3).Select Cells.ClearContents Cells.NumberFormatLocal = "G/標準" For i = 100 To 300 If Doc.all(i).tagName = "TD" Then n = n + 1 Cells(Int((n - 1) / 40) + 1, (n - 1) Mod 40 + 1) = Doc.all(i).innerText End If Next i Cells.EntireColumn.AutoFit Cells.EntireRow.AutoFit Next j End Sub どうぞよろしくお願いします。 |
上のメッセージを削除します。
よければパスワードを入力し、削除ボタンをクリックしてください。