使用Excel的Web自動化VBA

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