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
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