Convertir QuickTest résultats des tests professionnels à un fichier .xls

Question

comment envoyer les résultats des tests QuickTest Professional (QTP) dans un fichier .xls par script vb

Answer 1

Vous pouvez modifier la paire de fonctions ci-dessous pour répondre à vos besoins.

Cette fonction initialise une feuille de calcul Excel.

Function initOutExcel(sTablePath) 
    Datatable.addSheet "Results" 
    Datatable.importSheet sTablePath, "Results","Results" 
    iParamCount = Datatable.getSheet("Results").getParameterCount 
    if iParamCount = 0 Then 
    Datatable.getSheet("Results").addParameter "S.No","" 
    Datatable.getSheet("Results").addParameter "Status","" 
    Datatable.getSheet("Results").addParameter "Functionality","" 
    Datatable.getSheet("Results").addParameter "Description","" 
    End If 
    Datatable.ExportSheet sTablePath,"Results" 
End Function 

Cette fonction ajoute le résultat d'un test à la fin des résultats existants.

Function WriteResults(sTablePath,sStatus,sFunctionality,sDescription) 
    Datatable.addSheet "Results" 
    Datatable.importSheet sTablePath, "Results","Results" 
    iRowCount = Datatable.getSheet("Results").getRowCount 
    Datatable.getSheet("Results").setCurrentRow(iRowCount+1) 
    Datatable("S.No","Results") = iRowCount+1 
    Datatable("Status","Results") = sStatus 
    Datatable("Description","Results") = sDescription 
    Datatable("Functionality","Results") = sFunctionality 
    Datatable.ExportSheet sTablePath,"Results" 
End Function 

(Source)