使用Excel VBA的Web自动化

我试图自动化一些login，并从网上复制粘贴到我自己的机器上。 当我从公司内部网上尝试同样的事情时，我面临着问题。 我的错误信息是：

对象variables或未设置块variables。

这是我的代码：

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 

首先设置docvariables

 Set Doc = IE.document 

然后设置test2对象

 set test2 = Doc.getElementById("testid")