https://www.gratis.it/utility/abicab/#gsc.tab=0
<input name="CodAbi" type="text" size="5" maxlength="5" value="08441">
my test code:
Code:Sub Test() Dim IE As Object Set IE = CreateObject("InternetExplorer.application") IE.Visible = True IE.navigate ("https://www.gratis.it/utility/abicab/#gsc.tab=0") Do If IE.readyState = 4 Then IE.Visible = False Exit Do Else DoEvents End If Loop IE.document.forms(0).all("codabi").Value = "08441" End Sub


Reply With Quote