如何在登錄後使用VBA點擊網頁中的按鈕？

我正在嘗試點擊我使用VBA登錄的網頁上的按鈕。我已經登錄，現在我想繼續這個過程並點擊另一個按鈕。以下是我迄今爲止如何在登錄後使用VBA點擊網頁中的按鈕？

Sub MyGmail() 
Dim HTMLDoc As HTMLDocument 
Dim MyBrowser As InternetExplorer 
Dim MyHTML_Element As IHTMLElement 
Dim MyURL As String 
On Error GoTo Err_Clear 
MyURL = "https://www.programworkshop.com/6.0.0.0/login/login.aspx?skin=default&lang=enu" 
Set MyBrowser = New InternetExplorer 
MyBrowser.Silent = True 
MyBrowser.Navigate MyURL 
MyBrowser.Visible = True 
Do 
Loop Until MyBrowser.ReadyState = READYSTATE_COMPLETE 
    Set HTMLDoc = MyBrowser.Document 
    HTMLDoc.all.Login.value = "[email protected]" 
    HTMLDoc.all.pass.value = "Password" 
    HTMLDoc.all.btnlogin.Click

這下一行是我進入了死衚衕

 HTMLDoc.all.sd5.Click

下面是從網站的代碼

<a id="sd5" class="nodeSel" href="javascript:treeAction(strURL5)" onmouseover="window.status='Examinees';return true;" onmouseout="window.status='';return true;" onclick="javascript: d.s(5);">Examinees</a> 







Err_Clear: 
If Err <> 0 Then 
Err.Clear 
Resume Next 
End If 
End Sub

來源

2016-08-25 Jexon

那麼對於初學者'Document'沒有被聲明，所以你可能會在那裏得到一個錯誤。 –

對不起，我忘了解決這個問題，試圖與它一起玩。我現在修復了我的原始代碼與同樣的問題。 – Jexon

你是什麼意思的「打到死衚衕」？你需要做的第一件事就是擺脫'On Error GoTo Err_Clear'，因爲那樣會阻止運行時錯誤，它會告訴你問題實際是什麼（或至少提供了提示）。 –

HTMLDoc.all.btnlogin.Click 

While MyBrowser.Busy 
    DoEvents 
Wend 

Set HTMLDoc = MyBrowser.Document 
HTMLDoc.all.sd5.Click

來源

2016-08-25 22:09:49 Slai

它仍然沒有工作。我嘗試通過按F8手動運行，當我等待時，也沒有工作。 – Jexon

如何在登錄後使用VBA點擊網頁中的按鈕？

回答

相關問題