Excel VBA IE按搜索按钮

时间:2017-01-24 15:11:25

标签: excel-vba vba excel

我正在尝试编程以推送" a" SEARCH"带有VBA excel的网页上的按钮,但不幸的是所有搜索都来自google.com& stackoverflow.com无法解决问题。

我的关注VBA代码到现在为止:

Sub DownloadHomepage()
Dim eRow As Long
Dim ele As Object
Set sht = Sheets("RawData")
RowCount = 1

eRow = Sheet1.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row

Set objIE = CreateObject("InternetExplorer.Application")

Text = Sheet2.Cells(2, 3)

 With objIE
.Visible = True 'Hvis hjemmesiden skal fremkomme synligt - ej = False
.navigate "https://infra.soliditet.com/solsite-1.0/crWelcome.do"
'Viser først hjemmesiden når den er færdig med at loade

Do While .Busy Or _
.readyState <> 4 
DoEvents
Loop

Set what = .document.getElementsByName("standardCompanySearchForm.keyData")

what.Item(0).Value = Text

.document.getElementById("sumbit").Click  '(HERE IS THE PROBLEM-LINE THAT DOSNT WORK!)

检查&#34; SEARCH&#34;时来自网址的代码按钮:

**<input type="submit" value="Search" onclick="doSearch( true );" class="btn_style2" style="width: 52px;">**

&#34;重置&#34; buttom离开&#34;搜索&#34;按钮有以下网址代码:

<input id="reset" type="button" class="btn_style2" onclick="clearFields();" value="Clear" style="width: 52px;">

我在这里弄清楚如何使用这个按钮

.document.getElementById("reset").Click

但这样dosnt适用于搜索按钮

有人可以帮帮我吗?

谢谢! :)

0 个答案:

没有答案