Forum Discussion
Easy way to pull a date from a Web Page?
- Oct 18, 2020
You may use this User Defined Function to get the desired info from the web page.
Place this UDF on a Standard Module like Module1.
Function getDate(url As String) Dim ie As Object Dim doc As Object Dim eDate As Object Set ie = CreateObject("InternetExplorer.Application") With ie .navigate url .Visible = False Do While .readyState <> 4 DoEvents Loop End With Set doc = ie.document Set eDate = doc.getElementsByClassName("date")(0) getDate = eDate.innerText ie.Quit Set ie = Nothing End Function
And then you may use the above UDF like a regular Excel function on the worksheet like this...
In a blank cell, place the following function...
=getDate("https://www.kitco.com/Silver-price-today-USA/")
and this will return Oct 16, 2020 16:59 NY Time in the formula cell.
For more details, refer to the attached.
You may use this User Defined Function to get the desired info from the web page.
Place this UDF on a Standard Module like Module1.
Function getDate(url As String)
Dim ie As Object
Dim doc As Object
Dim eDate As Object
Set ie = CreateObject("InternetExplorer.Application")
With ie
.navigate url
.Visible = False
Do While .readyState <> 4
DoEvents
Loop
End With
Set doc = ie.document
Set eDate = doc.getElementsByClassName("date")(0)
getDate = eDate.innerText
ie.Quit
Set ie = Nothing
End Function
And then you may use the above UDF like a regular Excel function on the worksheet like this...
In a blank cell, place the following function...
=getDate("https://www.kitco.com/Silver-price-today-USA/")
and this will return Oct 16, 2020 16:59 NY Time in the formula cell.
For more details, refer to the attached.
- JoanneSOct 18, 2020Copper Contributor
Subodh_Tiwari_sktneer Thank you for the detailed info...it worked great!!
- Subodh_Tiwari_sktneerOct 18, 2020Silver Contributor
You're welcome JoanneS! Glad it worked as desired.