02-03-2010, 10:07 PM
Hi,
Try as given below.
Try as given below.
Code:
sourcefile = "\\..\..\Type_QTP.xls"
Set xlApp = CreateObject("Excel.Application")
xlApp.Workbooks.Open(sourcefile)
xlApp.sheets("Sheet1").Select
xlApp.sheets("Sheet1").Range("G2:G20") = "Some data"
xlApp.ActiveWorkBook.Save
xlApp.Application.Quit
Set xlApp = Nothing