###前提・実現したいこと
EXCEL VBAで特定WEBページからデータを収集するシステムを作ってます。
HTMLから要素を抜き出す機能を実装中に以下エラーが発生しました。
###発生している問題・エラーメッセージ
実行時エラー’13’
型が一致しませn
###該当のソースコード
Option Explicit
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private objIE As InternetExplorer
Sub main()
Set objIE = New InternetExplorer
Dim url
url = "https://www.amazon.co.jp/gp/bestsellers/books/3257503051/" objIE.Visible = True objIE.Navigate2 (url) '読み込み完了待ち While objIE.readyState <> READYSTATE_COMPLETE Or objIE.Busy = True DoEvents Sleep 100 Wend Sleep 100 Dim objDoc As HTMLElementCollection Set objDoc = objIE.document Dim element As IHTMLElement Dim row '書き込むセルの行数 row = 1 For Each element In objDoc.getElementsByClassName("a-fixed-left-grid-inner") 'シートに取得したタイトルの書き込み Worksheets(1).Cells(row, 1) = row Worksheets(1).Cells(row, 2) = element.Children(1).Children(1).innerText row = row + 1 Next element objIE.Quit Set objIE = Nothing
End Sub
###試したこと
プログラム自体は、以下URLの最下段「サポート情報欄」に掲載されているもの(2-1_対応版.txt)を使用。
http://www.sbcr.jp/products/4797389029.html
プログラム素人のため、この先、どう進めてよいのか分かりません。
###補足情報(言語/FW/ツール等のバージョンなど)
Winodows10 バージョン1607
Excel2010(Microsoft Office Home and Business2010)
回答3件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2017/04/13 15:14