Reading XML file online using VBA - Getting this error

[PP3321]

Does anyone know how to overcome this error.

the data necessary to complete this operation is not yet available

 

[PP3321]

Here is my Macro

Option Explicit

Sub GetData()

Dim URL As String
Dim XMLData
Dim node As Object


URL = "...sample.xml"

Set XMLData = CreateObject("Microsoft.XMLDOM")
XMLData.Load URL

Debug.Print

For Each node In XMLData.SelectNodes("*//Date")
Debug.Print node.Text
Next

End Sub

 

[PP3321]

XML file is very simple like this.

<Root>
<Calender>
<Date>2016-06-01</Date>
</Calender>
<Calender>
<Date>2016-06-02</Date>
</Calender>

 

[NARAYANK991]

Hi ,

The code given below works with the posted XML data.

Sub GetData()
    Dim URL As String
    Dim XMLData
    Dim node As Object

    URL = "C:\Users\AllUsers\Downloads\temp.xml"

    Set XMLData = CreateObject("Microsoft.XMLDOM")
    XMLData.Load URL

    For Each node In XMLData.SelectNodes("//Date")
        Debug.Print node.Text
    Next
End Sub

<?xml version="1.0" encoding="us-ascii"?>
<Root>
    <Calender>
        <Date>2016-06-01</Date>
    </Calender>
    <Calender>
        <Date>2016-06-02</Date>
    </Calender>
</Root>

Narayan

 

[PP3321]

@NARAYANK991
Thank you.
1. Your code works fine on my PC, when xml file is stored locally. (i.e.desktop)

2. I am sorry I forgot to tell you that xml is stored online.
I am researching if it is to do with readystate...

 

[PP3321]

@NARAYANK991
Hi I solved this problem.
I inserted these 2 lines and it worked!

Thank you so much!!!

 XMLData.async = False
    XMLData.validateOnParse = False