cancel
Showing results for 
Search instead for 
Did you mean: 

error while Convert xml to excel....

Highlighted
Contributor

error while Convert xml to excel....


sub main



Dim xmlSource



Dim xmlXForm



Dim strErr



Dim strResult



Dim fso, file



Dim strPath



Const ForWriting = 2



Set xmlSource = CreateObject("MSXML.DOMDocument")



Set xmlXForm = CreateObject("MSXML.DOMDocument")



xmlSource.validateOnParse = True


xmlXForm.validateOnParse = True


xmlSource.async = False


xmlXForm.async = False


xmlSource.Load "C:\Users\username\Desktop\TC Reports\test.xml"



If Err.Number <> 0 Then


Err.Number <> 0

strErr = Err.Description & vbCrLf


strErr = strErr & xmlSource.parseError.reason & " line: " & _


xmlSource.parseError.Line & " col: " & _


xmlSource.parseError.linepos & _


" text: " & xmlSource.parseError.srcText


MsgBox strErr, vbCritical, "Error loading the XML"



End If



' This loads the XSLT transform


xmlXForm.Load "C:\Users\username\Desktop\TC Reports\test.xsl"



If Err.Number <> 0 Then


Err.Number <> 0

strErr = Err.Description & vbCrLf


strErr = strErr & xmlSource.parseError.reason & " line: " & _


xmlSource.parseError.Line & " col: " & _


xmlSource.parseError.linepos & _


" text: " & xmlSource.parseError.srcText


MsgBox strErr, vbCritical, "Error loading the Transform"



End If



 


' This transforms the data in xmlSource


strResult = xmlSource.transformNode(xmlXForm)


If Err.Number <> 0 Then


strErr = Err.Description & vbCrLf


strErr = strErr & xmlSource.parseError.reason & _


" line: " & xmlSource.parseError.Line & _


" col: " & xmlSource.parseError.linepos & _


" text: " & xmlSource.parseError.srcText


MsgBox strErr, vbCritical, "Error executing the Transform"



End If



Set fso = CreateObject("Scripting.FileSystemObject")


fso = CreateObject("Scripting.FileSystemObject")

strPath = "C:\Users\username\Desktop\TC Reports\test.txt"



' open the file



Set file = fso.opentextfile(strPath, ForWriting, True)


file = fso.opentextfile(strPath, ForWriting, )

' write the info to the file



file.write strResult



' close and clean up



file.Close



end sub






I get an error at

strResult = xmlSource.transformNode(xmlXForm)


msxml.dll

The stylesheet does not contain a document element.  The stylesheet may be empty, or it may not be a well-formed XML document.


I checked the dlls in the bin folder of test complete.  I see msxml4.dll?  Could you pls give me some input. 

1 REPLY 1
Highlighted

RE: error while Convert xml to excel....

Hi Madhi,


It looks like your code is OK. To help us investigate the situation, please send us the target test.xml and test.xsl files.


Best regards,
Alexey

Did my reply answer your question? Give Kudos or Accept it as a Solution to help others. ⬇️⬇️⬇️
New Here?
Join us and watch the welcome video:
Announcements
Top Kudoed Authors