Issues in IE automation through VBA

[rajkavikumar]

Hi Friends,
I am working on an web automation where I have to provide input to a webpage in which a different control I saw named as range input this is the website .
Once user change range by dragging mouse one chart get updated.

Set oTab1 = IE.Document.GetElementById("credit-score")
Set oTab = IE.Document.GetElementById("js-rangeslider-1421669192041")
For Each oLink In oTab.all
    If InStr(1, oLink.outerhtml, "rangeslider__fill", vbTextCompare) Then
        oLink.Style.Width = "150.5px"
    ElseIf InStr(1, oLink.outerhtml, "rangeslider__handle", vbTextCompare) Then
        oLink.Style.left ="139.5px"
    End If
Next
IE.Document.GetElementById("slider-range").Style.left =  "130.5px"
IE.Document.GetElementById("slider-range").innertext = "720-739"oTab1.Value = 720

But I am unable to get control of range input control/object of webpage. and this is the website