Hi, Thanks for your update.
Here my requirement is convert xml/HTML QTP Resluts to EXCEL Sheet. Regards, Ravi. On Wed, Jul 18, 2012 at 9:11 AM, Johnson Solomon <[email protected]>wrote: > Hi, > > The below code will convert XML QTP Results to HTML file. > > Function ConvertToHTML(sResultPath) > 'sResultPath = "C:\DOCUME~1\user\LOCALS~1\Temp\TempResults\" > sProductDir = "C:\Program Files\HP\QuickTest Professional\dat\" > > 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 sResultPath & "Report\Results.xml" > xmlXForm.Load sProductDir & "PShort.xsl" 'if you want more details, then > you can use PDetails.xsl > > Set fso = CreateObject("Scripting.FileSystemObject") > sHTMLPath = Replace(sResultPath & "Report\Results.xml", ".xml", ".html") > Set file = fso.OpenTextFile(sHTMLPath, ForWriting, True) > file.write xmlSource.transformNode(xmlXForm) > file.Close > > fso.CopyFile sProductDir & "PResults.css", sResultPath & "Report\" > > ExportResultHTML = sHTMLPath > > Set file = Nothing > Set fso = Nothing > Set xmlXForm = Nothing > Set xmlSource = Nothing > > End Function > > -- > With Regards, > Johnson Solomon > > -- > You received this message because you are subscribed to the Google > "QTP - HP Quick Test Professional - Automated Software Testing" > group. > To post to this group, send email to [email protected] > To unsubscribe from this group, send email to > [email protected] > For more options, visit this group at > http://groups.google.com/group/MercuryQTP?hl=en > -- You received this message because you are subscribed to the Google "QTP - HP Quick Test Professional - Automated Software Testing" group. To post to this group, send email to [email protected] To unsubscribe from this group, send email to [email protected] For more options, visit this group at http://groups.google.com/group/MercuryQTP?hl=en
