QTP : Inserting a text into a cell of an excel sheet

What will be the script to insert a text or value into a cell of an excel sheet ? Pls help...Thanks in advance.

cyber_coolie
Profile Answers by cyber_coolie Questions by cyber_coolie
Nov 30th, 2007
2
13747

Showing Answers 1 - 2 of 2 Answers

prashanth.n
Profile Answers by prashanth.n Questions by prashanth.n

Nov 30th, 2007

The following code will be useful for inserting text into excel.

Dim app
Dim book
Dim sheet
Set app=CreateObject("Excel.Application")
Set book=app.workbooks.open("e:temp.xls")
Set sheet=book.activesheet
sheet.cells(1,1)="hello"
book.save
app.quit

kotike
Profile Answers by kotike

Apr 12th, 2010

set oExcel=CreateObject("Excel.Application")
set oWB=oExcel.WorkBooks.Add
oExcel.visible=True
oExcel.Cells(1,1)="All the Best.have a great day"
set oWB=Nothing
set oExcel=Nothing