Looking for Exam Result Script

[Areon]

possible but it depends how you will export either in excel or word ? check below code for more info for xml pattern

  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
  
'Example : xmlSource.Load "C:\QTP91\Results.Results.xml"
  xmlSource.Load "Your Report.xml file path"


  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 loading the XML"

  End If

  ' This loads the XSLT transform
  'Here you need to update your Xsl file
  'Example xmlXForm.Load "C:\Qtp9.1\data\PDetails.Xsl"
  
  xmlXForm.Load "Your XSL file Path"

  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 loading the Transform"
  End If
  
  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")
  
  'Here you need to update your Output files
    strPath = "c:\TestReport.html"

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

  ' write the info to the file
  file.write strResult

  ' close and clean up
  file.Close