Vba 无法填写某些日期输入以执行自定义搜索

我试图在vba中创建一个脚本，根据我的首选输入日期（如2019年11月3日）和输出日期（如2019年11月5日）选择日期，用于两个字段的签入和签出。到目前为止，我编写的宏可以单击这些字段，但不能用上述日期填充输入

我试过：

Sub FillInTheForm()
    Dim IE As New InternetExplorer, HTML As HTMLDocument
    Dim post As Object, elem As Object, guest As Object
    Dim findbtn As Object, URL$

    URL = "https://www.discoverqatar.qa/"

    With IE
        .Visible = True
        .navigate URL
        While .Busy = True Or .readyState < 4: DoEvents: Wend
        Application.Wait Now + TimeValue("00:00:05")
        Set post = .document.querySelector("[class='rsp_s_checkindate_input'] > #lpPannel_txtFromDate")
        post.Focus
        post.Click

        Application.Wait Now + TimeValue("00:00:05")
        Set elem = .document.querySelector("[class='rsp_s_checkoutdate_input'] > #lpPannel_txtToDate")
        elem.Focus
        elem.Click

        Application.Wait Now + TimeValue("00:00:05")
        Set guest = .document.querySelector("#lblPaxInfo")
        guest.Focus
        guest.Click

        Application.Wait Now + TimeValue("00:00:05")
        Set findbtn = .document.querySelector("input#btnSearch")
        findbtn.Focus
        findbtn.Click
    End With
'    IE.Quit
End Sub

脚本中存在一些故意的延迟，我可以在以后定义任何定时循环时取消这些延迟

如何在这些框中填写日期以执行自定义搜索

---

只需设置值属性

Option Explicit
Public Sub SetDates()
    Dim ie As InternetExplorer

    Set ie = New InternetExplorer

    With ie
        .Visible = True
        .Navigate2 "https://www.discoverqatar.qa/"

        While .Busy Or .readyState <> 4: DoEvents: Wend

        With .document
            .querySelector("#lpPannel_txtFromDate").Value = "03/11/2019"
            .querySelector("#lpPannel_txtToDate").Value = "05/11/2019"
            .querySelector("#btnSearch").Click
            Stop
        End With
    End With
End Sub

---

尽管宏似乎工作正常，但结果与我在@QHarr手动执行相同操作时看到的结果不同。当我手动尝试时，我得到22个结果，而宏给我28个。我怎样才能修好它？我目前的做法是什么。下面显示了在单击“查找”按钮之前填充的框的外观。谢谢你，当然可以。我现在正在工作，但会尽快为您更新，只要我找到解决方案。我并没有忘记这一点。今晚看起来不错，干得好。那你还想让我看看这个吗？不用向我保证。像往常一样投票。我会看你的文件，虽然看起来是一个.rar，所以我需要提醒自己如何打开这些文件。