From CSV to EXCEL: to append the records

dim firstcall as boolean = true public function dowork() as object ' get the write adapter including excel properties dim adapter as exceladapter adapter = adapterwrite if adapter.onlytest = true or firstcall = false or file.exists(adapter.database) = false then ' return the input value to the excel adapter dowork = invalues(0).getvalue() exit function end if firstcall = false ' create an excel object dim excel as object excel = createobject("excel.application") ' open excel workbook excel.workbooks.open(adapter.database) ' get the defined excel worksheet dim worksheet as object worksheet = excel.activeworkbook.worksheets(adapter.worksheet) ' search for first free row dim startrow as integer startrow = adapter.rowfrom ' if this column is empty we have found our first row :-) ' you can change it e.g. 1 = column a, 2 = column b, ... dim checkcolumn as integer checkcolumn = 1 ' search for first free do while true dim range as object range = worksheet.cells(startrow, checkcolumn) dim cellvalue as string cellvalue = string.empty if range.value2 <> nothing then cellvalue = range.value2.tostring() end if if cellvalue.length() = 0 then exit do end if startrow = startrow + 1 loop ' set the new start row in the excel adapter adapter.rowfrom = startrow excel.quit ' return the input value to the excel adapter dowork = invalues(0).getvalue() end function