1

ページ上のすべてのテーブル要素をループしようとしていますが、上記のエラーが発生しています。これが私のコードです：

Dim ie As InternetExplorer
Dim ieDOC As HTMLDocument
Dim tableElements As HTMLElementCollection
Dim tableElement As HTMLTable

Set ie = New InternetExplorer
ie.Visible = True
eURL = "url_of_site_to_visit"
ie.navigate ieURL
Do While ie.Busy Or ie.readyState <> 4
    DoEvents
Loop
Set ieDOC = ie.Document
Set tableElements = ieDoc.getElementsByTagName("table")

何らかの理由で、コード行に「タイプの不一致」が表示されSet tableElements = ieDoc.getElementsByTagName("table")ます。

また、デバッグ時に教えてくれますtableElements = Nothing

「Microsoft HTML Object Library」と「Microsoft Internet Controls」への参照を追加しました。

エラーの原因、または修正方法に関する指示をいただければ幸いです。

4

1 に答える 1

1

それが返されるオブジェクトのタイプであるため、そうあるべきだと思いますIHTMLElementCollection（最初の に注意してください）IgetElementsByTagName

于 2012-11-19T01:22:02.667 に答える