Otomatik veri girişi program önerisi

Sub HtmlDoldur()
    Dim IE As Object
    Dim doc As Object
    Dim i As Long

    Set IE = CreateObject("InternetExplorer.Application")
    IE.Visible = True
    IE.Navigate "http://www.ornekform.com" ' Formun URL'sini buraya ekleyin

    Do While IE.Busy Or IE.readyState <> 4
        DoEvents
    Loop

    Set doc = IE.document

    For i = 2 To ThisWorkbook.Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row
        doc.getElementById("formField1").Value = ThisWorkbook.Sheets("Sheet1").Cells(i, 1).Value
        doc.getElementById("formField2").Value = ThisWorkbook.Sheets("Sheet1").Cells(i, 2).Value
        ' Diğer form alanlarını buraya ekleyin
        doc.getElementById("submitButton").Click
        Application.Wait Now + TimeValue("00:00:02") ' Formun gönderilmesi için bekleyin
    Next i

    IE.Quit
    Set IE = Nothing
    Set doc = Nothing
End Sub