Excel add array to last cell

[dersiniar]

Hi i want to add array to to excel file that has data allready in. I want to add to end to data that is allready there. Example if existing data endas A:45 then i want array to go A46
But func i have still dont do this. It still populates A:1 cell

Func _ExportData($aArray)

   Sleep(100)
    Global $oExcel = _Excel_Open(False, False, True, True, True)
    Global $oWorkBook
    If Not FileExists($sDataFilePath) Then
        $oWorkBook = _Excel_BookNew($oExcel)
    Else
        $oWorkBook = _Excel_BookOpen($oExcel, $sDataFilePath)
    ;ConsoleWrite($sDataFilePath & @CRLF)
    ;ConsoleWrite($oWorkBook & @CRLF)
EndIf
$lastline=_Excel_RangeRead ($oWorkbook,Default,Default,Default)
_Excel_RangeWrite($oWorkBook, $lastline, $aArray)

    If FileExists($sDataFilePath) Then
         _Excel_BookSaveAs($oWorkBook, $sDataFilePath)
    Else
        _Excel_BookSaveAs($oWorkBook, $sDataFilePath)
    EndIf
   _Excel_Close($oExcel, Default, True)
   Sleep(1000)
   killEXCEL()
EndFunc   ;==>_ExportData

 

[junkew]

Why do you think $lastline has the lastline? did you check that value with a consolewrite/msgbox

You probably need something like

$LastRow = $oWorkbook.ActiveSheet.Range("A1").SpecialCells($xlCellTypeLastCell).Row

[dersiniar]

12 minutes ago, junkew said:

Why do you think $lastline has the lastline? did you check that value with a consolewrite/msgbox

You probably need something like

$LastRow = $oWorkbook.ActiveSheet.Range("A1").SpecialCells($xlCellTypeLastCell).Row

Hmm, now it didn't overwrite data. That's good, but, it didn't add array at all now lol

$LastRow = $oWorkbook.ActiveSheet.Range("A1").SpecialCells($xlCellTypeLastCell).Row
Consolewrite($LastRow & @crlf)
_Excel_RangeWrite($oWorkbook.Activesheet, $LastRow, $aArray)

 

[water]

Please have a look at the wiki: https://www.autoitscript.com/wiki/Excel_Range about the last used cell.

Please check the value of @error after calling  _Excel_RangeWrite.

[dersiniar]

This is what I tried, but still no luck

$LastRow = $oWorkbook.ActiveSheet.Range("A1").SpecialCells($xlCellTypeLastCell).Row
$Rowrange = "A"&$LastRow+1
Consolewrite($Rowrange & @crlf)
_Excel_RangeWrite($oWorkbook, $oWorkbook.Activesheet, $aArray, $Rowrange)

 

[dersiniar]

1 hour ago, dersiniar said:

This is what I tried, but still no luck

$LastRow = $oWorkbook.ActiveSheet.Range("A1").SpecialCells($xlCellTypeLastCell).Row
$Rowrange = "A"&$LastRow+1
Consolewrite($Rowrange & @crlf)
_Excel_RangeWrite($oWorkbook, $oWorkbook.Activesheet, $aArray, $Rowrange)

 

It worked like a charm... I had excel opened in task manager.. So it was not able to save it