PDA

View Full Version : VBA NAVIGATE ALL SUBMIT INPUT WITH SAME NAME



kazikamuntu
06-12-2015, 12:01 PM
Hello everyone,
I'm writing macro that navigates on a site and performs various operations.


I'm stuck because I can not figure out how to click a button to submit macro.
This is a sample of web page:

13678

It is a table with the tags tr and td.


<tr>
<td class="scuro">25/05/2015</td>
<td class="scuro">dato 1</td>
<td class="scuro">dati vari</td>
<td class="scuro">Utente 1</td>
<td class="scuro">20152505</td>
<td align="center" class="scuro">
<input type="submit" class="submit" value="VAI" name="tasto"><input type="hidden" name="_tasto" value=" ">
</td>
</tr>
<tr>
<td class="scuro">25/05/2015</td>
<td class="scuro">dato 2</td>
<td class="scuro">dati vari</td>
<td class="scuro">Utente 2</td>
<td class="scuro">20152505</td>
<td align="center" class="scuro">
<input type="submit" class="submit" value="VAI" name="tasto"><input type="hidden" name="_tasto" value=" ">
</td>
</tr>
<tr>
<td class="scuro">25/05/2015</td>
<td class="scuro">dato 3</td>
<td class="scuro">dati vari</td>
<td class="scuro">Utente 3</td>
<td class="scuro">20152505</td>
<td align="center" class="scuro">
<input type="submit" class="submit" value="VAI" name="tasto"><input type="hidden" name="_tasto" value=" ">
</td>
</tr>


<tr>
<td class="scuro">25/05/2015</td>
<td class="scuro">dato 4</td>
<td class="scuro">dati vari</td>
<td class="scuro">Utente 4</td>
<td class="scuro">20152505</td>
<td align="center" class="scuro">
<input type="submit" class="submit" value="VAI" name="tasto"><input type="hidden" name="_tasto" value=" ">
</td>
</tr>

ETC ETC



The problem is that the input names/values are equal (VAI, and tasto):


example: how do I click the button "VAI" only for the row containing"Utente 8"?

Thank you in advance



Const cURL = "my link" 'esempio
Dim IE As InternetExplorer
Dim doc As HTMLDocument

sub main ()
Set IE = New InternetExplorer
IE.Visible = True
IE.Toolbar = True
IE.navigate cURL
ie_complete

Set doc = IE.document
clickcorrect
end sub

Sub clickcorrect()
doc.all.Item("VAI").Click ?????????????????????????????????? search row containing "Utente 8" and click only the correct submit (same row)
ie_complete
End Sub

Sub ie_complete()

Do While IE.readyState <> READYSTATE_COMPLETE Or IE.Busy: DoEvents: Loop

End Sub

kazikamuntu
06-14-2015, 01:34 AM
anyone?