How to Automate Data Entry in a web form using excel macros

[email protected]


https://www.youtube.com/watch?v=T6HRjiAdW38

Sub Text()

    Dim IE As Object
    Dim doc As HTMLDocument
    Set IE = CreateObject("InternetExplorer.Application")

    IE.Visible = True
    IE.Naviguate *http://www.facebook.com/*

    Do While IE.Busy
        Application.Wait DataAdd("s", 1, Now)
    Loop

    Set Doc = IE.document

    'IE.document.getElementById("  ").Value = "test"
    doc.getElementById("  ").Value = ThisWorkbook.Sheets("Data").Range("A2").Value
    doc.getElementById("  ").Value = ThisWorkbook.Sheets("Data").Range("B2").Value
    doc.getElementById("  ").Value = ThisWorkbook.Sheets("Data").Range("C2").Value
    doc.getElementById("  ").Value = ThisWorkbook.Sheets("Data").Range("D2").Value

    doc.getElementById("  ").Value = ThisWorkbook.Sheets("Data").Range("E2").Value

    If ThisWorkbook.Sheets("Data").Range("F2").Value = "Jan" Then doc.getElementById("month").Value = 1
    ElseIf ThisWorkbook.Sheets("Data").Range("F2").Value = "Feb" Then doc.getElementById("month").Value = 2
    ElseIf ThisWorkbook.Sheets("Data").Range("F2").Value = "Mar" Then doc.getElementById("month").Value = 3
    ElseIf ThisWorkbook.Sheets("Data").Range("F2").Value = "Apr" Then doc.getElementById("month").Value = 4
    ElseIf ThisWorkbook.Sheets("Data").Range("F2").Value = "May" Then doc.getElementById("month").Value = 5
    ElseIf ThisWorkbook.Sheets("Data").Range("F2").Value = "Jun" Then doc.getElementById("month").Value = 6
    ElseIf ThisWorkbook.Sheets("Data").Range("F2").Value = "Jul" Then doc.getElementById("month").Value = 7
    ElseIf ThisWorkbook.Sheets("Data").Range("F2").Value = "Aug" Then doc.getElementById("month").Value = 8
    ElseIf ThisWorkbook.Sheets("Data").Range("F2").Value = "Sep" Then doc.getElementById("month").Value = 9
    ElseIf ThisWorkbook.Sheets("Data").Range("F2").Value = "Oct" Then doc.getElementById("month").Value = 10
    ElseIf ThisWorkbook.Sheets("Data").Range("F2").Value = "Nov" Then doc.getElementById("month").Value = 11
    ElseIf ThisWorkbook.Sheets("Data").Range("F2").Value = "Dec" Then doc.getElementById("month").Value = 12
    End If

    doc.getElementById("year").Value = ThisWorkbook.Sheets("Data").Range("G2").Value

    If ThisWorkbook.Sheets("Data").Range("H2").Value = "Female" Then doc.getElementById("  ").Click
    ElseIf
    If ThisWorkbook.Sheets("Data").Range("H2").Value = "Male" Then doc.getElementById("  ").Click
    End If

IE.Quit