excel VBA macroでInternetExplorerから情報を入手したい

Question

問題経緯
そのために下記コードを実行しようと試みるもどういう訳か
ieobj.documentのところでオートメーションエラーという表示が出てしまい先に進まない
Dim doc As HTMLDocument: Set doc = ieobj.document
何故エラーなのかが理解できない

実現したいこと
internet explorerから特定の情報を取得したい
入手したい情報は下記リンクの食品成分の表の情報を取得してエクセルに書き出したいです。
https://fooddb.mext.go.jp/result/result_top.pl?USER_ID=17072

'
Sub getiewindow()
Application.ScreenUpdating = False
Dim ieobj As InternetExplorer: Set ieobj = New InternetExplorer
Dim ws As Worksheet: Set ws = ThisWorkbook.Sheets("list")
Dim shell As Object: Set shell = CreateObject("Shell.Application")
Dim win As Object
For Each win In shell.Windows
If win.Name = "Internet Explorer" Then
Set ieobj = win
Exit For
End If
Next win
Call writedata(ieobj)
End Sub

Sub writedata(ieobj As InternetExplorer)
Dim ws As Worksheet: Set ws = ThisWorkbook.Sheets("list")
Dim r As Long, c As Long
Dim cnt As Long: cnt = 1

Dim doc As HTMLDocument: Set doc = ieobj.document
Dim target As IHTMLElement
Set target = doc.getElementById("result_table")
Dim tdtags As IHTMLElementCollection
Set tdtags = target.getElementsByTagName("td")
Dim tdtag As IHTMLElement
For Each tdtag In tdtags
    r = cnt \ 11 + 2 
    c = cnt Mod 11 + 1 
    ws.Cells(r, c).Value = tdtag.innerText
    cnt = cnt + 1
Next tdtag
Set doc = Nothing

End Sub
Sub waitIE2(ieobj)
Do While ieobj.Busy = True Or ieobj.readyState < READYSTATE_COMPLETE '読み込み待ち
DoEvents
Loop
End Sub
コード

Answer 1

kannoryuji様　　「ツール」タブをクリックして参照設定を開いて
該当する項目にチックをいれてください。
オブジェクトライブラリーの設定です　
やり方は、「Excel塾のマクロ講座中級編68回」を観てください。

Comments

[退会済みユーザー]

New InternetExplorer は通過してるので参照設定はしてますね。

そもそも、オートメーションエラーが出てる時点で参照設定ではないでしょう。
型が定義されてないとかそんなエラーになるはず。

Answer 2

どういう訳かも何も、
何も理解せずコピペしてるんじゃないですか。

VBAは特に情報量多いですし、
IE操作についてもたくさん記事ありますし、
最低限理解してから動かしてみてはどうでしょう。

取り敢えずIEのオブジェクト生成後に
ieobj.Visible = True　を実行して、
実際に IE がどうなってるのか見たらすぐ分かります。

あと「コードの挿入」の使い方が間違ってます。

test

こうなります。

Answer 3

I appreciate the tips on negotiating with your toronto internet. It's saved me money in the past!

Answer 4

Every year, thousands of customers around the world choose MaroCar for a cheap car hire in Morocco. The platform operates in the main cities of the kingdom (Casablanca, Marrakech, Tangiers, Rabat …) and delivers its cars to the address of your choice or directly to the main airports in the country. My Car Import

Answer 5

When it comes to internet providers in Vancouver, it's not just about speed – reliability matters too.