使用Excel VBA的Web自动化

Question

我试图自动化一些登录，并将粘贴从网络上复制到我自己的计算机上。当我尝试公司Intranet的同一件事时，我会面临问题。我的错误消息是：

对象变量或块变量未设置。

这是我的代码：

Sub getdata()
Dim IE As Object
Dim Doc As HTMLDocument
Dim naziv, test, test2 As Variant
'Set IE = CreateObject("InternetExplorer.Application")
Set IE = New InternetExplorerMedium
IE.Visible = True
IE.navigate "https://example.com/Pages/default.aspx"
Do While IE.readyState = 4
DoEvents
Loop
Set test = Doc
Set test2 = Doc
test2 = test.getElementById("testid")
MsgBox (test2.innerText)
End Sub

Answer 1

删除以下两行

Set test = Doc
Set test2 = Doc

设置DOC变量首先

Set Doc = IE.document

，然后设置test2对象

set test2 = Doc.getElementById("testid")