Заполните онлайн форму VBA

Question

Я создал тестовую форму здесь , и я пытаюсь заполнить ее значениями, которые есть в файле Excel.

Мой код останавливается на строке: 'Call ie.Document.getelementbyid ("input_11"). SetAttribute ("value", activity) ', и он не копирует данные из первой ячейки, вот как выглядит мой файл Excel:

'Sub internet()

Dim ie As Object
Dim activitate As String
Dim LastRow As Long
Dim i, j As Integer
i = 1
LastRow = Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row - 1
j = 0

'open page
Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True
ie.Navigate "https://form.jotformeu.com/91133129129351"
Do
DoEvents
Loop Until ie.ReadyState = 4

While i < 11
For Each c In Range("2:2")
activity = c.Value
Call ie.Document.getelementbyid("input_11").setAttribute("value", activity)
Next c
Wend


End Sub'

Я пытаюсь обойти эту ошибку кода, спасибо за ваше время!

Answer 1

Я думаю, что-то подобное должно быть

Sub test()

    Dim IeApp As Object
    Dim IeDoc As Object
    Dim ieEL As Object

    Set IeApp = CreateObject("InternetExplorer.Application")
        IeApp.Visible = True ' make Explorer visible
            IeApp.Navigate "https://form.jotformeu.com/91133129129351"
        Do While IeApp.Busy: DoEvents: Loop ' wait for page load
        'Do Until IeApp.readyState = READYSTATE_COMPLETE: DoEvents: Loop

        Set IeDoc = IeApp.Document ' set loaded content to variable
            For Each ieEL In IeDoc.getElementsByTagName("input") ' loop all inputs
                If InStr(ieEL.Name, "activitate") > 0 Then ' check if inputs name has activate name
                    i = i + 1 ' increment for pick up valaues from sheet
                    ieEL.Value = ThisWorkbook.ActiveSheet.Cells(2, i).Value ' set value from sheets 2 row and i column
                End If
            Next
End Sub