TOPIC:

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