以下是使用IE与本地文件进行交互的一种方法。
HTML文件(保存到桌面)
My ExampleYou Found Me
Excel的VBA(如图中的三种方法)
Sub GetData()
Dim IE As InternetExplorer
'Create InternetExplorer Object
Set IE = New InternetExplorerMedium
' You can coment Next line To see page load
IE.Visible = False
'Set URL to local file
IE.Navigate2 "C:\Users\PortlandRunner\Desktop\index.html"
' Wait while IE loading... Probably don't need this since it's local
Do While IE.Busy
Application.Wait DateAdd("s", 1, Now)
Loop
'Option A
Dim foundA As String
foundA = IE.Document.getElementsByClassName("find-me")(0).innerText
MsgBox foundA
'Option B
Dim foundB As Variant
Set foundB = IE.Document.getElementsByClassName("find-me")
MsgBox foundB(0).textContent
'Option C
Dim tag
Dim tags As Object
Set tags = IE.Document.getElementsByTagName("*")
For Each tag In tags
If tag.className = "find-me" Then
MsgBox tag.innerText
Exit For
End If
Next tag
'Show IE
'IE.Visible = True
' Clean up
Set IE = Nothing
End Sub
结果:
测试IE10中& Excel 2010中