VBA: How to input date in an Internet Explorer search field

[ExcelRooky91]

Hi All,

I'm grinding away at my first attempt at writing a code and I'm struggling with trying to input a date in a search field box. My current code results in runtime error 13: Type mismatch.

Anyone more experienced able to shed some light for me?

Kind regards,
Ty

The Website I'm accessing is: https://www.nzfma.org/data/search.aspx

My current code is:

Sub BKBM_Rates()
'This will load a webpage in IE
    Dim i As Long
    Dim URL As String
    Dim IE As Object
    Dim objElement As Object
    Dim objCollection As Object
       
    'Create InternetExplorer Object
    Set IE = CreateObject("InternetExplorer.Application")
 
    'Set IE.Visible = True to make IE visible, or False for IE to run in the background
    IE.Visible = True
 
    'Define URL
    URL = "[URL]https://www.nzfma.org/data/search.aspx[/URL]"
 
    'Navigate to URL
    IE.Navigate URL
   
   'make sure the page is done loading
       Do
DoEvents
Loop Until IE.ReadyState = 4

    'attempting to search date based on date value in cell
Dim inputfield As HTMLInputElement
Set inputElement = IE.document.getElementById("ct100_cphBody_rdpDate_dateInput")
If inputfield.Type = "text" Then inputfield.Value = Sheets("Sheet1").Range("b2").Value
   
    'clicking the search button
IE.document.getElementById("cphBody_btnSearch").Click
End Sub

 

[ExcelRooky91]

I have tweaked the code to the following but the search result shows[h=3]"Bank Bill Reference Rates Report for 1 Jan 0001[/h]No data available"

I feel there is something to do with a hidden date entry aswell? Any help is appreciated.

Sub BKBM_Rates()
'This will load a webpage in IE
    Dim i As Long
    Dim URL As String
    Dim IE As Object
    Dim objElement As Object
    Dim objCollection As Object
       
    'Create InternetExplorer Object
    Set IE = CreateObject("InternetExplorer.Application")
 
    'Set IE.Visible = True to make IE visible, or False for IE to run in the background
    IE.Visible = True
 
    'Define URL
    URL = "[URL]https://www.nzfma.org/data/search.aspx[/URL]"
 
    'Navigate to URL
    IE.Navigate URL
   
   'make sure the page is done loading
       Do
DoEvents
Loop Until IE.ReadyState = 4
    'attempting to search date based on date value in cell
IE.document.getElementById("ctl00_cphBody_rdpDate_dateInput").Value = Sheets("Sheet1").Range("B2")
   
    'clicking the search button
IE.document.getElementById("cphBody_btnSearch").Click
End Sub

 

[Norie]

How would you enter the date manually on the site?

Would you type it directly or would you use some sort of date picker?

 

[ExcelRooky91]

It is a form of date picker. You click the calendar icon which creates a calendar popup for you to select the date.

Direct link as follows: https://www.nzfma.org/data/search.aspx

 

[ExcelRooky91]

Anyone come across a solution for entering a date with a calendar date picker?

 

[daverunt]

Most date pickers can be used without activating the pop up as long as you press Enter after manually putting the date in the box with the expected format.
So we enter the date, select the date box then send the ENTER key.
Entry and selection can be either way around.

I put a delay in prior to searching also. It works without both delays but hasn't had a lot of testing.

The following works for me:

'attempting to search date based on date value in cell
IE.document.getElementById("ctl00_cphBody_rdpDate_dateInput").Value = Sheets("Sheet1").Range("B2").Text

'Select the date picker box and press Enter to 'activate' the new date
IE.document.getElementById("ctl00_cphBody_rdpDate_dateInput").Select
 
Application.Wait (Now() + TimeValue("00:00:01"))
SendKeys "+{ENTER}"


'clicking the search button
Application.Wait (Now() + TimeValue("00:00:03"))
IE.document.getElementById("cphBody_btnSearch").Click

 

[ExcelRooky91]

Thanks daverunt! That was a helpful explanation. Much appreciated.

Now on to the next step!