Web Xml is not loading on a specific machine (vba)

[nd0911]

Hello,

I'm trying to load an XML from the web to an object in VBA, it works on every machine exapt one (my server).

This is the code:

Dim URL As String
Dim XmlObject As Object

Set XmlObject = CreateObject("MSXML2.DOMDocument.6.0")

URL = "https://old.cbs.gov.il/reader/pirsum_madad/indices_heb.xml"

XmlObject.async = False 
XmlObject.Load (URL)
'the code continue.....

on every machine the last line of code (XmlObject.Load (URL)) in the "Locals Window" the relevant properties are full, on this specific machine its all empty.

same office 365 on all machines.

what do you think could be the problem ?

thank you.

 

[Domenic]

Try testing whether the document has loaded successfully. If it fails, check the parseError property of the Document object for the reason...

    If XmlObject.Load(Url) Then
        'document loaded successfuly
        '
        '
    Else
        'document failed to load
        With XmlObject.parseError
            MsgBox "Error " & .ErrorCode & ": " & .reason, vbCritical, "Error"
        End With
    End If

Hope this helps!

 

[sandy666]

maybe try Power Query as alternative

#VALUE!

and so on....

// date
let
    Source = Xml.Tables(Web.Contents("https://old.cbs.gov.il/reader/pirsum_madad/indices_heb.xml"), null, 1255),
    #"Expanded Table" = Table.ExpandTableColumn(Source, "Table", {"code", "Attribute:year", "Attribute:month", "Attribute:noNamespaceSchemaLocation"}, {"code", "Attribute:year", "Attribute:month", "Attribute:noNamespaceSchemaLocation"}),
    #"Expanded code" = Table.ExpandTableColumn(#"Expanded Table", "code", {"name", "percent", "index", "Attribute:code"}, {"name.1", "percent", "index", "Attribute:code"}),
    #"Expanded index" = Table.ExpandTableColumn(#"Expanded code", "index", {"Element:Text", "Attribute:base", "Attribute:chainingCoefficient"}, {"Element:Text", "Attribute:base", "Attribute:chainingCoefficient"}),
    #"Removed Columns" = Table.RemoveColumns(#"Expanded index",{"Attribute:noNamespaceSchemaLocation", "Name"})
in
    #"Removed Columns"