單擊HTML列表中的鏈接

Question

我在嘗試使用Excel的IE自動化工具單擊本網站用戶配置文件中的網站鏈接。 VBA中使用以下：

ie.Document.getElementsByClassName("website")(0).getElementsByTagName("a")(0).Click 

但不斷收到運行時錯誤「438」跑時。有關如何解決這個問題的任何建議，或者點擊這個鏈接，甚至可能嗎？謝謝。

EDIT（全碼）：

Dim ie As InternetExplorer 
Dim html As HTMLDocument 
Set ie = New InternetExplorer 
ie.Visible = True 
ie.Navigate "site" 

Do While ie.READYSTATE <> READYSTATE_COMPLETE 
DoEvents 
Loop 

Set objA = ie.Document.getElementsByClassName("website")(0) 'GETTIN ERROR HERE 
objA.getElementsByTagName("a")(0).Click 
End Sub 

Answer 1

這樣看來，有幾個小問題在這裏。

其中之一是.Click總是不正常運行，我會建議使用.getAttribute("href")與ie.Navigate()

，你似乎定義HTML則不會再使用它彼此不結合。

下面的代碼工作：

Sub test() 
Dim ie As InternetExplorer 
Dim html As HTMLDocument 
Set ie = New InternetExplorer 
ie.Visible = True 
ie.Navigate "http://beverlyhills.yourkwoffice.com/mcj/user/AssociateSearchSubmitAction.do?orgId=5058&lastName=&firstName=&rows=100" 

Do While ie.READYSTATE <> READYSTATE_COMPLETE 
DoEvents 
Loop 

Set html = ie.Document 

Set objA = html.getElementsByClassName("website")(0).getElementsByTagName("a")(0) 
ie.Navigate (objA.getAttribute("href")) 
End Sub