VBA Excel Web Scraping - не работает выпадающий выбор

Question

Я пытаюсь получить таблицу цепочек опционов на конкретную дату истечения срока действия, от www.nseindia.com/option-chain до Excel. Дата истечения срока действия выпадающего списка. На основании даты истечения срока действия приведенная ниже таблица цепочки опционов обновляется. Я хочу автоматизировать этот процесс с помощью кода VBA. Я могу изменить дату истечения срока действия, но таблица ниже не обновляется. Мой код ниже:

ie .navigate "https://www.nseindia.com/option-chain"

Do While ie.readyState <> READYSTATE_COMPLETE Or ie.Busy
   Application.Wait Now + TimeSerial(0, 0, 1)
Loop



Set HTMLdoc = ie.document

Set Optionobject = HTMLdoc.getElementById("expirySelect")
HTMLdoc.getElementById("expirySelect").Focus
HTMLdoc.getElementById("expirySelect").Click




For Each elem In Optionobject.getElementsByTagName("option")
MsgBox elem.Value
If InStr(elem.Value, "30-Jan-2020") > 0 Then elem.Selected = True:
  Exit For
Next elem


HTMLdoc.getElementById("expirySelect").Value = "30-Jan-2020"
HTMLdoc.getElementById("expirySelect").selectedIndex = 2
HTMLdoc.getElementById("expirySelect").FireEvent "onchange"