何がいけないのかさっぱりExcel VBAで価格ドットコムの商品一覧を取得する
未読分：3件
昨日以降(0) ２日前以降(0) ３日前以降(0) ４日前以降(0) ５日前以降(0)
Excel VBAでIEを思いのままに操作できるプログラミング術 Excel 2013/2010/2007/2003対応
近田 伸矢, 植木 悠二, 上田 寛
IEのデータ収集＆自動操作のプログラミング本はこの1冊だけ！IEの起動やポップアップウィンドウ、表示を制御する基本的なコードはもちろん、テキストボックスやラジオボタン、表、ハイパーリンクなどのHTML部品を制御する方法など、自動操作に欠かせないノウハウを丁寧に解説。
| Message#3 2017年7月25日(火)15時50分 From: Faber | 返事 削除 変更 |
| NMCのメッセージ(#2)への返事 > 単純に > Dim str As Object が > Dim str As string の間違いでは？ ありがとうございます。コードが多すぎて変数を 把握しきれていなかったのだと思います。 コードは一部別のサイトをまねて移したところがあるので。 |
| Message#2 2017年7月25日(火)12時20分 From: NMC | 返事 削除 変更 |
| 単純に Dim str As Object が Dim str As string の間違いでは？ |
| Message#1 2017年7月25日(火)02時50分 From: Faber | 返事 削除 変更 |
| 'エラーになるのはstr =のところタグは存在してるんだけど動かない Private Sub Worksheet_Activate() Dim ObjIE ' As New InternetExplorer Dim ObjHTML As Object Dim Lc As Integer Dim Tc As Integer Dim str As Object Set ObjIE = CreateObject("InternetExplorer.Application") ObjIE.navigate Worksheets("Index").Range("D5") Do While ObjIE.Busy = True Or ObjIE.readyState <> 4 DoEvents Loop On Error GoTo End1 For Lc = 1 To 100 Set ObjHTML = ObjIE.document.getElementById("main").getElementsByClassName("itemtblList onjs")(0) Set ObjHTML = ObjHTML.getElementsByClassName("item item" & Format(Lc, "00") & " clearfix")(0).getElementsByClassName("itemBg clearfix")(0).getElementsByClassName("itemInfo")(0) Cells(Lc, 1) = ObjHTML.getElementsByClassName("itemnameN")(0).innertext Cells(Lc, 2) = ObjHTML.getElementsByClassName("clearfix")(0).getElementsByClassName("itemDbox")(0).getElementsByClassName("price")(0).getElementsByClassName("yen")(0).innertext str = ObjHTML.getElementsByClassName("clearfix")(0).getElementsByClassName("itemDbox")(0).getElementsByClassName("itemDetail")(0).getElementsByClassName("cate")(0).innertext strARRAY = Split(str, " > ") Cells(Lc, 3) = strARRAY(UBound(strARRAY)) Next End1: ObjIE.Quit MsgBox "更新完了" & Err.Number & Err.Description On Error GoTo 0 End Sub |
昨日以降 ２日前以降 ３日前以降 ４日前以降 ５日前以降
