'result file sResultsXML = "D:\app\HP\Unified Functional Testing\sample_shikun\reporterLog\Res1\Report\Results.xml" 'Required template file sDetailedXSL = "D:\app\HP\Unified Functional Testing\dat\PDetails.xsl" ApplyXSL sResultsXML,sDetailedXSL,"D:\tt.html" 'tt.html is an output file SystemUtil.Run "www.baidu.com" Function ApplyXSL(ByVal inputXML,ByVal inputXSL,ByVal outputFile) sXMLLib = "MSXML.DOMDocument" Set xmlDoc = CreateObject(sXMLLib) Set xslDoc = CreateObject(sXMLLib) xmlDoc.async = false xslDoc.async = false xslDoc.load inputXSL xmlDoc.load inputXML outputText = xmlDoc.transformNode(xslDoc.documentElement) outputText = Replace(outputText,"UTF-16","GB2312") Set FSO = CreateObject("Scripting.FileSystemObject") Set outFile = FSO.CreateTextFile(outputFile,true) outFile.Write outputText outFile.Close Set outFile = Nothing Set FSO = Nothing Set xmlDoc = nothing Set xslDoc = nothing Set sResultsXML = nothing End Function
From: http://blog.csdn.net/zzxxbb112/article/details/5341510