How to write a data in excel file

[sshukla12]

Hi, i think this will help you.
Append the row and write again

Code:

Dim fso
Set fso=CreateObject("Excel.Application")
fso.visible=true
Set excel_obj=fso.workbooks.open("D:\BookingResults\test1.xls")
Set obj_worksheet=excel_obj.worksheets(1)
cell_address=obj_worksheet.UsedRange.Address
add_array1=split(cell_address,":",-1,0)
add_array=Split(add_array1(1),"$",-1,0)
row=add_array(2)+1
col=add_array(1)
obj_worksheet.cells(row,col).activate
obj_worksheet.cells(row,col).value="Hi"

Correct me if wrong.

Regards,
Sankalp