質問: Nothing End Sub ### 試したこと プログラム自体は、以下URLの最下段「サポート情報欄」に掲載されているもの(2-1_対応版.txt)を使用。 http://www.sbcr.jp/products/4797389029.html プログラム素人のため、この先、どう進めてよいのか分かりません。 ### 補足情報(言語/FW/ツール等のバージョンなど) Winodows10 バージョン1607 Excel2010(Microsoft Office Home and Business2010)
回答: > > Dim objDoc As HTMLElementCollection > > Set objDoc = objIE.document > > > ここをコメントアウトして、それ以降のコードの objDoc を objIE.document に置き換えて実行してみてください > > For Each element In **objDoc**.getElementsByClassName("a-fixed-left-grid-inner") > > > 置換 ↓ > > For Each element In **objIE.document**.getElementsByClassName("a-fixed-left-grid-inner") > > >