Read and edit excel in UFT

Here is an example that illustrates how to read and edit excel workbook in UFT.

 
'create new Excel application object
Set excelApp = createobject("excel.application")

'make excel application visible
excelApp.Application.Visible = true 

'open an existing workbook
excelApp.Workbooks.Open "C:UsersSagarDocumentsBooksUFTmyExcelWorkBook.xls" 

'get first worksheet from workbook
Set worksheet1 = excelApp.ActiveWorkBook.worksheets(1)

'get total rows in worksheet
Row=worksheet1.UsedRange.Rows.Count

'Get total columns in excel file 
Col=worksheet1.UsedRange.columns.count
 
'Read values
For  i= 1 to Row
    For j=1 to Col
        Msgbox  "Data in cell (" & i & "," & j & ") " & worksheet1.cells(i,j).value
    Next
Next

'Write some data in cells
worksheet1.cells(1,1).value ="New Paul"
worksheet1.cells(1,2).value ="New Watson"


'save workbook
excelApp.ActiveWorkbook.Save

'quit the excel app
excelApp.Application.Quit

'release the resources
Set worksheet1 = nothing
Set excelApp=nothing