We are migrating to Excel 2013 and one of our uploads that we do via Excel is not working in the 2013 version. We had a similar issue on another upload that was corrected by changing the reference to 6.0 which we did with this one as well and replacing XMLHTTPREQUEST with XMLHTTP60 however this macro is different. It errors on If xDoc.Load(strXML) Then

Any thoughts as to why this code would not work in Excel 2013? I do have msxml6.dll in the sysWOW64 directory. Also tried using msxml 3 reference with same results.

Thanks! Amy

Private Function sendXML(strXML, strResponse, strURL As String) As Long
Dim xDoc As MSXML2.DOMDocument
Dim xHTTP As MSXML2.XMLHTTP
'Dim xError, xImported, xUpdated As MSXML2.IXMLDOMElement
Dim xError, xImported, xUpdated As MSXML2.IXMLDOMNodeList
Dim tmp, tmp2 As String
Dim StatusNum As Long
Dim i, k As Integer
Dim Y, M, D, Dsep, Jdate As String
Dim Dorder As Integer

On Error GoTo doError
strResponse = ""
Set xDoc = New MSXML2.DOMDocument
xDoc.async = False

If xDoc.Load(strXML) Then <-----------------------------error occurs here
Set xHTTP = New MSXML2.XMLHTTP

xHTTP.Open "POST", strURL, False

xHTTP.setRequestHeader "content-type", "application/x-www-form-urlencoded"
xHTTP.setRequestHeader "accept", "text/xml/html"
xHTTP.setRequestHeader "accept-charset", "utf-8, iso_8859-1"

xHTTP.send xDoc.XML