Option Explicit
Const READYSTATE_COMPLETE As Long = 4


Sub Leggi_XML_da_IE()
Dim myURL As String
Dim Testo As String
Dim RngT As Excel.Range
Dim Rng As Excel.Range
Dim myIE As Object

Set myIE = CreateObject("InternetExplorer.Applicati…

Set Rng = [h1:h5]

'volendo non è necessario rendere visibile IE
'in questo caso commentare la prossima riga
myIE.Visible = True

On Error Resume Next

For Each RngT In Rng
myURL = CStr(RngT.Text)
myIE.navigate myURL

Do While myIE.Busy Or myIE.readyState <> READYSTATE_COMPLETE
DoEvents
Loop

myIE.Refresh

Do While myIE.Busy Or myIE.readyState <> READYSTATE_COMPLETE
DoEvents
Loop

Testo = myIE.document.body.innerText
RngT.Offset(, 1) = EstraiData(Testo)
Next

myIE.Quit

End Sub


Function EstraiData(ByVal sData As String)
Dim re As Object
Set re = CreateObject("vbscript.regexp")
re.ignorecase = True


re.Pattern = "[^<]+"
If re.test(sData) Then
sData = re.Execute(sData)(0)
End If


re.Pattern = "d{2}s[a-z]{3}sd{4}"
If re.test(sData) Then
EstraiData = DateValue(re.Execute(sData)(0))
End If
End Function