auto fill webform and submit and loop from xls sheet

[steve_faulkner]

I have been working on this for a bit here is what I have any help would be greatly apprieciated.

Sub submitFeedback3()
Application.ScreenUpdating = False

Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.Navigate "

http://www.livingoffthenet.com/sfaulkner/"

Application.StatusBar = "Submitting"
' Wait while IE loading...
While IE.Busy
DoEvents
Wend
' **********************************************************************
IE.Document.All("fname").Value = ThisWorkbook.Sheets("Leads").Range("a1:a1000")
IE.Document.All("email").Value = ThisWorkbook.Sheets("Leads").Range("b1:b1000")
IE.Document.getElementById onclick = "sendForm"
'**********************************************************************
Application.StatusBar = "Form Submitted"
IE.Quit
Set IE = Nothing

Application.ScreenUpdating = True
End Sub

Private Sub delay(seconds As Long)
Dim endTime As Date
endTime = DateAdd("s", seconds, Now())
Do While Now() < endTime
DoEvents
Loop
End Sub

 

[SkipVought]

Steve,

Please be sure to delete your other duplicate thread.

'
    Dim r As Range
    
    For Each r In ThisWorkbook.Sheets("Leads").Range("a1:a1000")
        IE.Document.All("fname").Value = r.Value
        IE.Document.All("email").Value = r.Offset(0, 1).Value
        IE.Document.getElementById onclick = "sendForm"
    Next

Just curious...
Why don't you have HEADINGS for your table? faq68-5184

Furthermore, If you have Excel version 2007 or greater, the Structured Table feature is really quite remarkable. Let's say that your headings are User Name & eMail Address. With a Structured Table...

'
    Dim r As Range
    
    For Each r In [Table1[[b]User Name[/b]]]
        IE.Document.All("fname").Value = r.Value
        IE.Document.All("email").Value = Intersect(r.EntireRow, [Table1[[b]eMail Address[/b]]]).Value
        IE.Document.getElementById onclick = "sendForm"
    Next

Skip,

_{Just traded in my OLD subtlety...
for a NUance!}

 

[steve_faulkner]

Thanks it worked all accept the submit part I have something wrong still. To answer your question I'm pretty green to programing just trying to learn...

 

[steve_faulkner]

Skip How do I get this submit and reload the page When I run it I see all the data flying through but its not being submitted Thanks again for your help.

 

[SkipVought]

I know nothing about IE properties and methods.

But something like this might work. I forgot to add it originally...

'
    Dim r As Range
    
    For Each r In ThisWorkbook.Sheets("Leads").Range("a1:a1000")
        IE.Document.All("fname").Value = r.Value
        IE.Document.All("email").Value = r.Offset(0, 1).Value
        IE.Document.getElementById onclick = "sendForm"[b]
        While IE.Busy
            DoEvents
        Wend[/b]
    Next

Skip,

_{Just traded in my OLD subtlety...
for a NUance!}

 

[steve_faulkner]

That might work but this line doesn't fail but it doesn't submit or it might have worked.
IE.Document.getElementById onclick = "sendForm"
is having issues submitting. I think I'm closer though.. Do you know of an IE.form code?

 

[SkipVought]

As I stated before, no.

getElementById needs an ID, not a name.

This link might help...

https://msdn.microsoft.com/en-us/library/ms536437(v=vs.85).aspx

Skip,

_{Just traded in my OLD subtlety...
for a NUance!}

 

[steve_faulkner]

Skip,

Thank You for all your help i do appreciate it. I did finally get the code to work and wanted to share it with you. not sure if there is a better way or not but this works.

Sub submitFeedback3()
Application.ScreenUpdating = False

Set IE = CreateObject("InternetExplorer.Application")
IE.Navigate "

http://www.livingoffthenet.com/sfaulkner/"

IE.Visible = True

Application.StatusBar = "Submitting"
' Wait while IE loading...
While IE.Busy
DoEvents
Wend

Dim r As Range

For Each r In ThisWorkbook.Sheets("Leads").Range("a1:a1000")
IE.Document.All("fname").Value = r.Value
IE.Document.All("email").Value = r.Offset(0, 1).Value
IE.Document.getElementById("formbutton").onclick

While IE.Busy
DoEvents
Wend
IE.Quit
Application.StatusBar = "Form Submitted"
Set IE = CreateObject("InternetExplorer.Application")
IE.Navigate "

http://www.livingoffthenet.com/sfaulkner/"

IE.Visible = True

Next
End Sub

 

[SkipVought]

Glad you got it working and posted your solution for the benefit of others.

Skip,

_{Just traded in my OLD subtlety...
for a NUance!}