Insert row into excel worksheet

[simonf]

I am trying to add a new row to the top of an existing Excel file each day. The following script overwrites the top row rather than inserting a new row.
Can insert a new row at the top of the sheet?

Code Select Expand


here=DirScript()
LocalFile=strcat(here,"CSVs\book2.csv")

row = 1
Headingtxt = 'Sample Heading text'

objXL = ObjectOpen("Excel.Application")
objXL.Visible = @TRUE
objWorkbooks=objXL.WorkBooks
objWorkbooks.Open(LocalFile)


;Insert Row of Data
objCells=objXL.Cells(row)
objCells.Value=Headingtxt
ObjectClose(objCells)

CurrentWorkbook = objWorkbooks.item(1)
CurrentWorkbook.Save()
objWorkbooks.Close()
objXL.Quit()


[stanl]

maybe something like

Code (Winbatch) Select Expand



objXL = ObjectOpen("Excel.Application")
objXL.Visible = @TRUE
objWorkbooks=objXL.WorkBooks
objWorkbooks.Open(LocalFile)
;insert top row
objWorkbooks.Activesheet.Rows("1:1").Select()
objXL.Selection.Insert(::Shift=-4121)


[simonf]

Perfect, thank you Sir. I adjusted the "Select" slightly and it works as required;

Code Select Expand

wrkshtname = objActiveSheet.Name
objWorkSheet = objXL.Worksheets(wrkshtname)
objRows = objWorkSheet.Rows("1:1")
objRows.Select
objXL.Selection.Insert(::Shift=-4121)