は、私は、Webページからのインポートデータを支援するためにこのコードを得たが、それは私が「今すぐ検索」ボタンをクリックする必要がどこまで機能し

Question

を失敗した:(

間違っているされているすべてのアイデアをしてください？

は

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 

ボタン

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

Answer 1

あなたが参照できる

および編集のためのHTMLコードをありがとうあなたの要件に応じて次のコード。

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