Excel的VBA代碼來獲取鏈接並點擊

這就是我想VBA的Excel點擊一個鏈接的截圖：Excel的VBA代碼來獲取鏈接並點擊

link which i want VBA excel to click

我使用VBA Excel中的代碼瀏覽到所需頁面後但它沒有得到我在上面顯示的鏈接。

set Alllinks=objIE.document.getallelementsbytagname("a") 

For Each link In Alllinks 

    'MsgBox link.innertext & " - " & link.href 

    If InStr(link.innerText, "ABERCROMBIE JOE R") > 0 Then 
     link.Click 

    Exit For 

    End If 

Next link

來源

2017-05-11 Talha Rasul

有你在使用警報檢查鏈接是否到來？ –

我知道原因，但不知道如何修改代碼鏈接是htm –

是的，只有html鏈接不是htm –

修改你的代碼是這樣的：

Dim httpObject As Object 
Set httpObject = CreateObject("MSXML2.XMLHTTP") 
Dim doc As Object 
Set doc = CreateObject("htmlfile") 
Dim links As Variant 

With httpObject 
    .Open "GET", "http://www.deltacomputersystems.com/cgi-lra2/LRMCGI01?HTMCNTY=AL39&HTMBASE=C&HTMSEARCH=BEGIN&HTMNAME=ABERCROMBIE+JOE+R&HTMADDRNUMBER=&HTMADDRSTREET=&HTMPARCEL1=&HTMPARCEL2=&HTMPARCEL3=&HTMPARCEL4=&HTMPARCEL5=&HTMPARCEL6=&HTMPARCEL7=&HTMPARCEL8=&HTMPPIN=&HTMSUBMIT=Submit", False 
    .send 
    Do Until httpObject.ReadyState = 4 
    Loop 
    doc.body.innerhtml = .responseText 
    Set links = doc.getElementsByTagName("a") 
    MsgBox (links(0).href) 

End With

這裏是輸出

來源

2017-05-11 10:45:58

Excel的VBA代碼來獲取鏈接並點擊

回答

相關問題