Problem in automating form filling web page.

**J FelixBosco** · 04-01-2018, 04:30 AM

Following code does not work please help.

VBAProject/Module1

Option Explicit

Sub iframeFormFilling()
  Dim rng As Excel.Range
  Dim rOffset As Byte
  Dim IE As Object
  Dim objElement As Object
  Dim objElement1 As Object
  Dim eleCollection As Object
  Dim ele As Object
  
  Set rng = ThisWorkbook.Sheets(1).Range("A2")
  rOffset = 0
  Set IE = CreateObject("InternetExplorer.Application")
  
  IE.Visible = True
  IE.Navigate "https://www.w3schools.com/tags/tryit.asp?filename=tryhtml_iframe"
  Application.StatusBar = "Web page loading. Please wait..."
  
  Do While IE.Busy
'        Application.Wait DateAdd("s", 1, Now)
    DoEvents
    
  Loop
  
  Application.StatusBar = "Form is getting filled. Please Wait..."
  
  Set eleCollection = IE.document.getelementsbytagname("DIV")
  Dim cc As String
  
  For Each ele In eleCollection
    
    If ele.classname = "CodeMirror-scroll" Then 'CAN'T GET ELEMENT AND NOT TRIGGERING
      Debug.Print ele.innertext
      ele.innertext = """" & "<!doctype html>"""
    End If
    
  Next
  Debug.Print objElement.innertext
  
End Sub

Untitled3.jpg

Thread: Problem in automating form filling web page.

Thread Tools

Display

Problem in automating form filling web page.

Posting Permissions