Create new excel workbook in UFT

Here is the example that illustrates how to create new excel workbook in UFT.
 
'create new application object
Set excelApp = createobject("excel.application")

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

'Create new workbook
excelApp.Workbooks.Add

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

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

'save workbook
excelApp.ActiveWorkbook.SaveAs  "C:UsersSagarDocumentsBooksUFTmyExcelWorkBook.xls"

'quit the excel app
excelApp.Application.Quit

'release the resources
Set worksheet1 = nothing
Set e   

Complex problems, Simple Solutions