Schreiben Testergebnisse zu Excel-Blatt mit UFT

Question

Ich bin Skripte in UFT ausgeführt und ich möchte Ergebnisse in ein Excel-Blatt schreiben. Wie würde ich darüber gehen? Jeder von mir ausgeführte Test hat eine Test-ID und einen Bestanden- oder Fehlgeschlagen-Status.

Answer 1

Erstellen Sie ein Excel-Blatt mit den Spalten "Test ID", "Testergebnis" an einem bestimmten Ort (Beispiel: "C: \ TestResults \" - Ordner).

Erstellen Sie eine Funktion Testergebnisse in Excel-Tabelle für jeden Test

Anruf, die

am Ende jedes Script-Funktion zu schreiben

Function WriteResulttoExcel(ID, TestResult, SheetPath) 
    'Creating the Excel Object 
    set objExcel = createobject("excel.application") 
    'Creating the Workbooks object 
    set objWB = objExcel.workbooks.open (SheetPath) 
    'Creating the sheet object 
    set objsheet = objwb.worksheets(1) 
    ' Write test results to excel sheet 
    rws=objsheet.UsedRange.Rows.count 
    objsheet.cells(1,rws+1).Value= ID 
    objsheet.cells(2,rws+1).Value= TestResult 
    'Saving the workbook after changes 
    objWb.save 
    'closing the workbook 
    objWB.close 
'Quit the Excel and destroying the Excel object 
    objExcel.Quit 
    set objExcel=nothing 
End Function 

Answer 2

Ich denke, der einfachste Weg ist, Daten in die eingebaute DataTable zu schreiben, und dann exportieren Sie die DataTable in eine Excel-Datei.

Zum Beispiel ...

Fügen Sie zunächst eine Spalte (auch bekannt als ein Parameter). Dies fügt auch den ersten Datensatz zur Spalte hinzu.

'add a new column 
DataTable.GetSheet("Global").AddParameter "TestResult", passOrFail 

Dann, wenn Sie mehrere Datensätze hinzufügen müssen ...

currentRow = DataTable.GetCurrentRow 
DataTable.SetCurrentRow = currentRow + 1 

DataTable.Value("TestResult","Global") = AnotherPassOrFail 

Ist das erledigt, exportieren nur die Datatable in eine Excel-Blatt

DataTable.Export "c:\filename.ext" 

Dort gehen Sie.