VBA- IE.Document错误

时间:2018-06-14 21:15:08

标签: html excel-vba internet-explorer runtime-error vba

我一直在尝试关注视频并从HTML文件中提取数据,并且我能够在我的系统上执行此操作。但是,当我尝试使用相同的代码/模块从我朋友系统的html文件中提取数据时,它向我显示错误91:对象变量或未设置的块"在第2行,有时甚至在第1行。基本上它不是在不同系统上读取html文档。在debug.print中尝试HTMLButton1时没有显示任何内容。

Public Type MyType
    date As String
    protocol As String
End Type

sub main()

    Dim file As String
    Dim IE As New SHDocVw.InternetExplorerMedium
    Dim HTMLDoc As MSHTML.HTMLDocument
    Dim HTMLButton1

    file = "C:\temp\HTML\page1.html"

    IE.Visible = False
    IE.navigate file 'line 1
    Do While IE.Busy = True
    Loop

    Set HTMLDoc = IE.Document
    Set HTMLButton1 = HTMLDoc.elementFromPoint(338, 462)

    array_objects(index).date = HTMLButton1.innerText 'line2

    IE.Quit
    Set IE = Nothing

 end sub

0 个答案:

没有答案