我一直在尝试关注视频并从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