0

VBA で使用していたように、VB コードでタグ名で要素を取得しようとしていますが、方法がわかりません。新しいブラウザ ウィンドウを開きましたが、それ以降コードが動かなくなりました。

Public ie As New SHDocVw.InternetExplorer
Private Sub TEST(sender As Object, e As EventArgs) Handles MyBase.Load
    Dim Keyword As Long
    ie = New SHDocVw.InternetExplorer
    ie.Visible = True
    ie.Navigate("http://google.com/")
    Do Until ie.ReadyState = SHDocVw.tagREADYSTATE.READYSTATE_COMPLETE
        Application.DoEvents()
    Loop
    Dim Doc As HtmlDocument
    Doc = ie.Document
    Keyword = Doc.GetElementsByTagName("td")(8).InnerText
    MsgBox(Keyword)
End Sub
4

1 に答える 1

0

追加することで問題は解決しました

Imports mshtml

コードの上部。

于 2013-03-23T02:39:56.850 に答える