vba 获取html dom,vba – 在HTMLElement上使用getElementById而不是HTMLDocument

我也不喜欢

所以使用javascript：

Public Function GetJavaScriptResult(doc as HTMLDocument, jsString As String) As String

Dim el As IHTMLElement

Dim nd As HTMLDOMTextNode

Set el = doc.createElement("INPUT")

Do

el.ID = GenerateRandomAlphaString(100)

Loop Until Document.getElementById(el.ID) Is Nothing

el.Style.display = "none"

Set nd = Document.appendChild(el)

doc.parentWindow.ExecScript "document.getElementById('" & el.ID & "').value = " & jsString

GetJavaScriptResult = Document.getElementById(el.ID).Value

Document.removeChild nd

End Function

Function GenerateRandomAlphaString(Length As Long) As String

Dim i As Long

Dim Result As String

Randomize Timer

For i = 1 To Length

Result = Result & Chr(