点击使用按钮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失败

回答

相关问题