Преобразование результатов теста QuickTest Professional в файл .xls - PullRequest
Новая
       16

Преобразование результатов теста QuickTest Professional в файл .xls

1 голос
/ 25 мая 2010

как отправить результаты теста QuickTest Professional (QTP) в файл .xls через скрипт vb

1 Ответ

2 голосов
/ 25 мая 2010

Вы можете изменить приведенную ниже пару функций в соответствии с вашими потребностями.

Эта функция инициализирует электронную таблицу 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

Эта функция добавляет результат теста к концу существующих результатов. 

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

( Источник )

...