點擊使用按鈕VBA失敗

我得到這個代碼從一個網頁幫助導入數據，但它工作起來的地方，我需要在點擊「立即搜索」 :(點擊使用按鈕VBA失敗

任何想法，是出了什麼問題好嗎？

謝謝

Sub test() 
'define empty row 
Dim eRow As Long 

'q where retrived from html code 
Set what = .document.getElementsByName("q") 
what.Item(0).Value = myjobtype 
Set zipcode = .document.getElementsByName("where") 
zipcode.Item(0).Value = myzip 
.document.getElementById("Search Now").Click 

... 

Set objIE = Nothing 
End Sub

HTML代碼按鈕

<button class="btn btn-jobsdotcom" type="submit">Search Now</button>

來源

2016-07-26 Matrix1977

我認爲'.document.getElementByID ...'在'With {x}'塊內，否則'.document'沒有任何可引用的地方。 – FreeMan

我還沒有通過VBA使用HTML頁面訪問，但我非常確定，您實際上需要先打開並定義文檔。你的語法也是無效的，因爲你在整個「q從html代碼中檢索」部分丟失了一個with-block。 – daZza

你可以參考和編輯根據您的要求編碼。

Set ElementCol = ie.Document.getElementsByTagName("button") 
For Each txt In ElementCol 
    If txt.innerText = "Search Now" Then 
     txt.Click 
     Exit For 
    End If 
Next

來源

2016-07-26 12:49:26

點擊使用按鈕VBA失敗

回答

相關問題