Автозаполнение таблицы с датой с датой

Question

Я пытаюсь просмотреть веб-таблицу через vba В Excel, но таблица не заполнена, я был бы признателен, если кто-то поможет.Благодарю.Ниже мой код:

Dim strdate As String
Dim eddate As String
Dim obj As Object

Set objie = New InternetExplorer
objie.Visible = True
objie.navigate "https://www.khistocks.com/company-information/company-profile/ABOT.html"

Do While objie.Busy = True Or objie.readyState <> 4: DoEvents: Loop

strdate = Range("B1").Value
eddate = Range("C1").Value
Set obj = objie.Document.getElementById("from")
obj.Value = strdate
obj.Click

Set obj = objie.Document.getElementById("to")
obj.Value = eddate
obj.Click


Application.Wait Now + TimeValue("00:00:03")

objie.Quit
End Sub

Ниже ссылка на сайт

[WebsiteLink] https://www.khistocks.com/company-information/company-profile/ABOT.html

Answer 1

Я обнаружил, что поля #from и #to не принимают ввод вручную.Чтобы обойти это, просто откройте «DatePicker» после установки дат и нажмите на него, чтобы выполнить обновление таблицы.Код ниже работает хорошо для меня, пожалуйста, попробуйте:

Set obj = objie.document.getElementById("to")
obj.Value = eddate
obj.Focus
obj.Click

Set elements = objie.document.getElementsByClassName("ui-datepicker-current-day")

For Each oElement In elements
    oElement.Click
Next oElement