Excel VBA automatic fill and submit web forms from excel data

[Nemat2313]

Hi,

My below code works find with F8 key, but run key doesn't fill the web form. I tried so many time readyState function but still doesn't work. Could anyone knows whats the problem there.

Please watch this video to better understand the problem.
https://youtu.be/zxL5GlhG0iA

Sub Sprint()
   Dim IE As Object
   Dim objelement As Object
   Dim c As Integer
   Dim LastRow, i, j As Integer
  
   Set IE = CreateObject("InternetExplorer.Application")
   
   With IE
      .Visible = True
      .navigate "https://website url here #"
      
      'wait until first page loads
      Do Until .readyState = 4
        DoEvents
      Loop
   
      On Error Resume Next

Set sht = ThisWorkbook.Worksheets("Data")
LastRow = sht.Cells(sht.Rows.Count, "B").End(xlUp).Row
For j = 4 To LastRow
       
    i = 112
             
         If IE.document.all.Item(i).innertext = "ÔÍÑ (ãîñ. ïîøëèíà)" Then
         IE.document.all.Item(i).Click
         
         End If
    
   IE.Visible = True
   While IE.Busy
   DoEvents  'wait until IE is done loading page.
   Wend
         
   'populate fields
   
   With IE.document
      'text boxes
      
      .all("fio").Value = sht.Cells(j, 1) 
      .all("contact").Value = sht.Cells(j, 2)
      .all("payer_address").Value = sht.Cells(j, 3) 
      .all("inn_from").Value = sht.Cells(j, 4) '"771562265931"
      .all("inn").Value = sht.Cells(j, 5) '"7726062105"
      .all("account").Value = sht.Cells(j, 6) '"45914000"
      .all("purpose").Value = sht.Cells(j, 7) 
      .all("comment").Value = sht.Cells(j, 8) '"02.04.2016"
      .all("sum").Value = sht.Cells(j, 10) '"1000"
      .all("get_total_sum").Click
      '.all("now_pay").Click
    
    End With
        Set IE = Nothing

    Next j
 End With
End Sub

 

[Nemat2313]

You haven't changed code that opens form web page.

Try below code to Login first, if it works fine you can write next code to fill the form.

Sub Login()
    Dim objelement As Object
   Dim c As Integer
   Dim LastRow, i, j As Integer
   
  
  
   Set ie = CreateObject("InternetExplorer.Application")
   
With ie
      .Visible = True
      .navigate "https://www.njmmis.com/mevs.aspx"
      
      'wait until first page loads
   On Error Resume Next
    Do
        If ie.ReadyState = 4 Then
            ie.Visible = True
            Exit Do
        Else
            DoEvents
        End If
    Loop
  

 'Login code here
                With ie.document
                      .all("txtUserName").Value = "enter here UserName"       'Sheet1.Range("B2").Value
                       .all("txtPassword").Value = "enter your Password"         'Sheet1.Range("B3").Value
                      .all("btnSubmit").Click
                   
                End With
   

End With
 
    Do While ie.Busy
        Application.Wait DateAdd("s", 1, Now)
    Loop
 

    ie.Visible = True
 

    Set ie = Nothing
    End Sub

 

[imgaur7]

Thanks Ombir, just to ask you something here if you can help

1. After clicking on Submit button say it opens a new web page
2. How to make the VBA read Elements name/id/tag from it, as New IE page is not set as the first one (Set IE = CreateObject("InternetExplorer.Application"))

here is some issues I am facing in defining the next IE page and reading the Elements from it to fill the form.

Kindly suggest

 

[Macropod]

This appears to be related to (if not effectively a duplicate of) the question you asked in: https://www.mrexcel.com/forum/excel-questions/1084387-vba-web-elements.html
Please read Mr Excel's policy in Rule 12 against asking questions about the same topic in multiple threads: http://www.mrexcel.com/forum/board-announcements/99490-forum-rules.html

 

[imgaur7]

Thanks for updating me, its my miss, kindly delete these for now and will check in future.