Adding rows to the DataTable

[bdc]

Hello,
I cannot seem to add rows to my Datatable. I am capturing transaction times using the MercuryTimers function then I save the first value along with the column name using the Addparameter function. This all works fine, but I do many iterations and I want to populate the rows of the existing columns not keep adding more columns. Is there a way to do this?

Code:

DataTable.GetSheet("Action1") DataTable.SetCurrentRow(intIteration) ' here i need something other than addparameter if iteration > 1 DataTable.LocalSheet.AddParameter "LoginPage", loginpageTime Wend DataTable.ExportSheet "C:\Automation Data\data\SingleUser.xls", 2

[bdc]

I found one answer here I will try, my search criteria was not so good
https://www.learnqtp.com/forums/add-a-ro...-1461.html

[newqtp]

Code:

p=datatable.AddSheet ("My").AddParameter("city","New York") i=datatable.GetSheet ("My").getcurrentrow msgbox i 'This will give 1 as the current row is 1. q=datatable.GetSheet ("My").SetNextRow 'This one is getting null value.It should show 2 'but nothing msgbox q datatable.getsheet("My").Setcurrentrow(2) 'then i've used this cuz i know my current 'row index is 2 '******** Both code below worked for adding value in run time data sheet. 'datatable.Value("city",3)="Bombay" '3 is for sheet index for Sheet name My Datatable.Getsheet("My").GetParameter("city").Value="Bombay" Data=datatable("city",3)'getting current row value from sheet My index 3 msgbox Data

[bdc]

the idea was to load columns that match the raw data from loadrunner that I am gathering so I could extrapolate the page rendering time rather than having to cut rows and paste them into columns manually. the following solution worked:

Code:

Set ExcelApp = CreateObject("Excel.Application") ExcelApp.Workbooks.Add Set ExcelSheet = ExcelApp.ActiveSheet ... While intIteration < 30 ... MercuryTimers("Save").Start Browser("WebBrowser").Page("WebPage").Link("Save").Click Browser("WebBrowser").Page("WebPage").WebElement("Success").CheckProperty "visible", True, 30000 intSave= MercuryTimers("Save").Stop ... Services.SetTransaction "Iteration",intIteration, Pass labels = Array("Login", "Mainpage","Search", "Save", "Logout") results = Array(intLogin, intMainpage, intSearch, intSave, intLogout) For i=0 to 4 results(i) = results(i)/1000 ExcelSheet.Cells(intIteration,i+1).Value = results(i) Services.SetTransaction labels(i), results(i), Pass Next ... Wend ... ExcelSheet.SaveAs "C:\Automation Data\SingleUser.xls" ExcelSheet.Application.Quit Set ExcelSheet = Nothing