利用Excel实现Web自动化

Question

我试图自动化一些登录和复制粘贴从网络到我自己的机器。当我从公司的内部网尝试同样的事情时，我会遇到一些问题。我的错误消息是：

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

这是我的代码：

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")