Rellenar formulario web html desde Excel

[Hola

Sobre lo de las filas, la verdad es bastante simple, basta colocar todo en algún bucle. Sobre imprimir, el botón de esa web lo que hace es hace un llamado a JavaScript. Otro dilema es que al hacer click al botón "Comprobar" se carga otra web que yo no puedo conocer por no tener los datos reales, así que tú tendrás que agregarla pero dejo ahí la que creo puede ser. Ah, por cierto, eso de imprimir en realidad lo que hace es que se muestra el cuadro de diálogo correspondiente ¿o tu idea es mandar directamente a la impresora?

Sub CARGAR_DATOS_WEB()
Dim IE As Object
Dim UltimaFila As Long
Dim Celda As Range
Application.ScreenUpdating = False
Set IE = CreateObject("InternetExplorer.Application")
IE.navigate "http://ec.europa.eu/taxation_customs/vies/vatRequest.html"
Do Until IE.ReadyState = 4
    DoEvents
Loop
Let UltimaFila = Cells(Rows.Count, 1).End(xlUp).Row
For Each Celda In Range("A2:" & UltimaFila)
    With IE
        .document.getElementById("countryCombobox").Value = Celda.Value
        .document.getElementById("number").Value = Celda.Offset(0, 1).Value
        .document.getElementById("requesterCountryCombobox").Value = "ES"
        .document.getElementById("requesterNumber").Value = "BXXXXXxx"
        .document.getElementById("submit").Click
        'aquí hay que cargar la web que comprueba los datos
        '.navigate "http://ec.europa.eu/taxation_customs/vies/vatResponse.html"
        'java para imprimir
        '.Navigate ("javascript:tools.printPage()")
        .navigate "http://ec.europa.eu/taxation_customs/vies/vatRequest.html"
        Do Until .ReadyState = 4
            DoEvents
        Loop
    End With
Next Celda
'IE.Visible = True
IE.Quit
Set IE = Nothing
Application.ScreenUpdating = True
End Sub

Comentas

Abraham Valencia

Lo de imprimir es para que me muestre solo el cuadro de diálogo.

La página web que te he puesto es la correcta, lo único que el BXXXX es nuestro CIF.

También ahora me da el error 1004 aquí:

For Each Celda In Range("A2:" & UltimaFila)

Reemplaza por:

For Each Celda In Range("A2:A" & UltimaFila)

Abraham Valencia

Ahora no me da error pero no me abre Internet Explorer, antes si, no se que puede pasar. El CIF lo he puesto correctamente:

Sub CARGAR_DATOS_WEB()
Dim IE As Object
Dim UltimaFila As Long
Dim Celda As Range
Application.ScreenUpdating = False
Set IE = CreateObject("InternetExplorer.Application")
IE.navigate "http://ec.europa.eu/taxation_customs/vies/vatRequest.html"
Do Until IE.ReadyState = 4
DoEvents
Loop
Let UltimaFila = Cells(Rows.Count, 1).End(xlUp).Row
For Each Celda In Range("A2:A" & UltimaFila)
With IE
.document.getElementById("countryCombobox").Value = Celda.Value
.document.getElementById("number").Value = Celda.Offset(0, 1).Value
.document.getElementById("requesterCountryCombobox").Value = "ES"
.document.getElementById("requesterNumber").Value = "BXXXXXX"
.document.getElementById("submit").Click
'aquí hay que cargar la web que comprueba los datos
'.navigate "http://ec.europa.eu/taxation_customs/vies/vatResponse.html"
'java para imprimir
'.Navigate ("javascript:tools.printPage()")
.navigate "http://ec.europa.eu/taxation_customs/vies/vatRequest.html"
Do Until .ReadyState = 4
DoEvents
Loop
End With
Next Celda
'IE.Visible = True
IE.Quit
Set IE = Nothing
Application.ScreenUpdating = True
End Sub

[Hola

Debiste ver todas las líneas y sobre todo, entender cada una, no solo copiar/pegar. Esta línea:

'IE.Visible = True

Tiene un apostrofe, solo bórralo. Por cierto, mejor borra la línea "IE.Quit", quizá no "ver" el IE te cause cierta confusión.

Abraham Valencia

Había quitado el apostrofe pero no me habría la página no se por qué. Ahora tengo otro problema porque Internet Explorer si que me abre pero no me enlaza los datos ni se validan los datos en la página web. 

Tendría que abrirse la página con los datos tantas veces como filas de datos tengo y solo se abre una vez.

Perdona mi ignorancia pero no me dedico a esto y lo que hago es trastear un poco las macros que me encuentro he intentar entenderlas.

[Hola nuevamente

Sin datos reales yo no puedo probar tal cual la web; por eso puse también un enlace con apostrofe pues es la web que quizá hay que cargar como paso previo a todo, pero repito, sin datos reales yo no puedo probar, solo tú podrías hacerlo. Quítale el apostrofe a esa web a ver si es.

Abraham Valencia

¿Hay alguna manera de que te mande el archivo de forma privada con los datos?

Coloca el archivo en algún "Drive" (Google Drive, OneDrive, DropBox, etc.), si quieres mantenerlo privado restringe el ingreso, envía el enlace por aquí y al intentar entrar yo, te llegará un correo para que me autorices; te darás cuentas que es mi correo al instante, yo sé porque te lo digo.

Abraham Valencia

¿Cabría la posibilidad de enlazarlo con Google Chrome?

Aquí va:

https://drive.google.com/file/d/1I4_I7WzRqwE3xWjyVPdy9ly1N5Znlcj0/view?usp=sharing

Ya que quiere que salga el cuadro de diálogo de imprimir, de alguna manera hay que mantener el control de la carga, lo he hecho mediante un MsgBox que si bien puede ser medio "entrometido", da tiempo para que el bucle se complete sin problema:

Sub CARGAR_DATOS_WEB()
Dim IE As Object
Dim UltimaFila As Long
Dim Celda As Range
Set IE = CreateObject("InternetExplorer.Application")
IE.Navigate "http://ec.europa.eu/taxation_customs/vies/vatRequest.html"
Do Until IE.ReadyState = 4
    DoEvents
Loop
IE.Visible = True
Let UltimaFila = Cells(Rows.Count, 1).End(xlUp).Row
For Each Celda In Range("A2:A" & UltimaFila)
    With IE
        .document.getElementById("countryCombobox").Value = Celda.Value
        .document.getElementById("number").Value = Celda.Offset(0, 1).Value
        .document.getElementById("requesterCountryCombobox").Value = "ES"
        .document.getElementById("requesterNumber").Value = "B54699756"
        .document.getElementById("submit").Click
        Application.Wait (Now + TimeValue("00:00:01"))
        .Navigate ("javascript:tools.printPage()")
        MsgBox "¿Recordaste imprimir??"
        .Navigate "http://ec.europa.eu/taxation_customs/vies/vatRequest.html"
        Do Until .ReadyState = 4
            DoEvents
        Loop
    End With
Next Celda
Set IE = Nothing
End Sub

Saludos]

Abraham Valencia

Buenos días!

Ahora cuando ejecuto la macro me da este error:

Y además, se me abre una página de Internet Explorer donde me valida el primer NIF pero no consigo que me abra otra página validando el segundo NIF...

https://drive.google.com/file/d/1BqqVrFx7lQu2I-rEcCd2WVm8yb-RWam_/view?usp=sharing