tengo un excel con 3 columnas (nombre, apellido y mail) son gente que se quiere apuntar a un seminario web de la plataforma Gotowebinar. He creado un macro en excel que teóricamente debería rellenar los campos en base al excel, hacer click sobre el boton registrar y luego hacer lo mismo con la siguiente fila. El error que me da es el siguiente:
Se ha producido el error '424' en tiempo de ejecución: Se requiere un objeto
El cógido que utilizo es el siguiente:
Sub inscripciones()
Dim IE As Object
Dim doc As HTMLDocument
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.navigate "https://register.gotowebinar.com/register/8357104619320871183"
Do While IE.Busy Or IE.readyState <> 4
Application.Wait DateAdd("s", 1, Now)
Loop
Set doc = IE.document
For intRow = 2 To 4
--------------------------------------------------------------------------------------------
'doc.getElementById("registrant.firstName").Value = "pato"
'doc.getElementById("registrant.lastName").Value = "pequin"
'doc.getElementById("registrant.email").Value = "patopequin@super.com"
'doc.getElementById("registration.submit.button").Click
'----------------------------------------------------------------------------------------------
'doc.getElementById("registrant.firstName").Value = ThisWorkbook.Sheets("Hoja1").Range("A2").Value
'doc.getElementById("registrant.lastName").Value = ThisWorkbook.Sheets("Hoja1").Range("B2").Value
'doc.getElementById("registrant.email").Value = ThisWorkbook.Sheets("Hoja1").Range("C2").Value
'doc.getElementById("registration.submit.button").Click
------------------------------------------------------------------------------------------------
IE.document.getElementById("registrant.firstName").Value = ThisWorkbook.Sheets("Hoja1").Range("A" & intRow).Value
IE.document.getElementById("registrant.lastName").Value = ThisWorkbook.Sheets("Hoja1").Range("B" & intRow).Value
IE.document.getElementById("registrant.email").Value = ThisWorkbook.Sheets("Hoja1").Range("C" & intRow).Value
IE.document.getElementById("registration.submit.button").Click
Application.Wait DateAdd("s", 2, Now)
Next
IE.Quit
End Sub