Forum Discussion

Raj27's avatar
Raj27
Occasional Contributor
8 years ago

how to upload values in Excel from test complete

I need to capture some values from the screen and to upload it in the Excel sheet.
Raj27's avatar
Raj27
Occasional Contributor
8 years ago

thank you,   But I need to upload some values into the excel sheet that are fetched  from a windows application

  • altemann's avatar
    altemann
    Contributor
    8 years ago

    Hey! Maybe something like this will help you:

     

    var values = [info coming from your app...];

function TextExcel()
{
  var excel = Sys.OleObject("Excel.Application"); excel.DisplayAlerts = false; //No messages
  var book = app.Workbooks.Open("C:\\EXCELFILE"); //Path to your excel file
  var sheet = book.Sheets("Plan1"); //Name of the sheet

  for (x = 0; x < values.length; x++) {
    sheet.Cells(1, x+1) = values[x];
  }

  book.Save();
  app.Quit();
}
    • Raj27's avatar
      Raj27
      Occasional Contributor
      8 years ago

      Could u update for VB Script

      • AlexKaras's avatar
        AlexKaras
        Champion Level 3
        8 years ago

        Hi,

         

        Something like this (untested plain conversion of top of my head):

        Dim values = Array(1, "aaa", "info coming from your app...")

        Function TextExcel()
        {
          Dim excel

          Dim book

          Dim sheet

          Dim x

         

          Set excel = Sys.OleObject("Excel.Application")

          excel.DisplayAlerts = False ' No messages
          Set book = app.Workbooks.Open("C:\\EXCELFILE") ' Path to your excel file
          Set sheet = book.Sheets("Plan1") ' Name of the sheet

          For x = BuiltIn.VarArrayLowBound(values, 1) To BuiltIn.VarArrayHighBound(values, 1)
            sheet.Cells(1, x+1) = values(x)
          Next

          Call book.Save()
          Call app.Quit()
        End Function