Excel VBAを使用したWebオートメーション

Question

いくつかのログインを自動化し、ウェブから自分のマシンに貼り付けを試みました。会社のイントラネットから同じことをしようとすると、私は問題に直面します。私のエラーメッセージは：

オブジェクト変数またはWithブロック変数が設定されていません。ここで

私のコードです：

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 

は、ドキュメント変数最初

Set Doc = IE.document 

を設定し、test2のオブジェクト

を設定し、次の2行を削除します

set test2 = Doc.getElementById("testid")