How I can operate via VBAｔｏ ｗｅｂｐａｇｅ ｓｌｉｄｅ ｂａｒ？

[2020spencer]

Ｈｅｒｅ　ｉｓ　ｍｙ　ｃｏｄｅ　ｔｏ　ｏｐｅｒａｔｅ　，　ｔｒｙ　ｔｏ　ｅｘｔｒａｃｔ　ｄａｔａ　ｆｒｏｍ　ａ　ｐｕｂｌｉｃ　ｗｅｂｐａｇｅ　ｂｕｔ　Ｉ　ｃａｎｎｏｔ　ｍｏｖｅ　ｔｈｅ　ｓｌｉｄｅ　ｂａｒ　ｔｏ　ｏｂｔａｉｎ　ｍｏｅｗ　ｄａｔａ　ａｔ　ｏｎｃｅ．．．．．

Ｗｈａｔ　ｉｓ　ｃｏｄｉｎｇ　ｆｏｒ　ｃｏｎｔｒｏｌ　ｖｉａ　ＶＢＡ　ｔｏ　ｗｅｂｐａｇｅ　ｓｌｉｄｅ　ｂａｒ？　Ｔｈａｎｋｓ

Dim i As Integer
Dim doc, hcol, text As Variant
Dim currentInnerHtml As String
Dim objIE As Object


Set ie = CreateObject("internetexplorer.application")
ie.navigate "恒生指數期貨及期權"
ie.Visible = True
Do While ie.Busy
Application.Wait DateAdd("s", 5, Now)
Loop



Set idoc = ie.document.getElementsByTagName("input")
For Each idoc In idoc
If idoc.getAttribute("loadmore") = "load" Then
idoc.Click
idoc.Click
Exit For
End If