title: HP UFT/QTP 14.00, import CSV and maintain the values in data sheet
body: <p>i'm importing some data from a csv file, here is the data: </p>
  
  <pre><code>*file.csv
  UserName, EmailId, PhoneNumber
  Antonio, anto@gmail.com, 1234567890
  Oscar, osc@yahoo.com, 9999999999
  Luis,lu@hotmail.com,8888888
  </code></pre>
  
  <p>I have a Function to call this file:</p>
  
  <pre><code>'************************************************************
  Function ImportCsvFiletoDatatable(CsvFilePath,SheetName,HeaderDelimiter)
  Dim filePath
  Dim fso
  Dim f
  Dim fData
  Dim arrData
  Dim CsvValue
  Dim CsvSheet
  Dim CsvFirstLine
  Dim CsvColumns
  Dim ColumnIndex
  Dim rIndex
  Dim cIndex
  
  filePath=CsvFilePath    'Specify file Path
  
  'Open CSV File using File System Object
  Set fso=createobject("scripting.filesystemobject")
  Set f  = fso.OpenTextFile(filePath)
  
  CsvFirstLine=f.readline    'Treating like first line is the column names
  
  CsvColumns=split(CsvFirstLine,HeaderDelimiter)    'Split the line using HeaderDelimiter
  
  Set CsvSheet=DataTable.GetSheet(SheetName)    'Get the Specified sheet
  
  'Add the splitted values as Datatable Columns
  For ColumnIndex=lbound(CsvColumns)  to ubound(CsvColumns)
  CsvSheet.addparameter CsvColumns(ColumnIndex),""
  Next
  
  
  While not f.AtEndOfStream
  
  rIndex=f.Line-1    'Specify Row index
  fData=f.ReadLine    ' Read CSV File Line
  arrData=split(fData,",")    'Split the line
  cIndex=1    'Specify Column Index
  CsvSheet.SetCurrentRow(rIndex)    'Set Row in the Datatable
  
  ' Add values in Datatable
  For Each CsvValue In arrData
  CsvSheet.getparameter(cIndex).value=CsvValue
  cIndex=cIndex+1
  Next
  
  Wend
  
  f.Close
  Set fso=Nothing
  
  End Function
  '************************************************************
  </code></pre>
  
  <p>And works well, but the information is volatile, and i can't manage, or use the data.
  Someone know how to keep the data in the data sheet, although leave UFT?</p>