Get the last written cell in excel

[EvilRubberDuck]

#include <Excel.au3>
#include <MsgBoxConstants.au3>

Global $oExcel = _Excel_Open()
lobal $sWorkbook = _Excel_BookNew($oExcel)

$oExcel.ActiveWorkBook.SaveAs(@ScriptDir & "\Resultados_ola.xlsx")

Global $aLastRow = $sWorkbook.ActiveSheet.UsedRange.SpecialCells($xlCellTypeLastCell)
;~      Global $aLastRow = $oExcel.Cells.SpecialCells($xlCellTypeLastCell).Row
;~      Global $aLastRow = $sWorkbook.Activesheet.UsedRange.Rows.Count




_Excel_RangeWrite($sWorkbook, $sWorkbook.Activesheet, "OLA", $aLastRow+1)

_Excel_BookClose($sWorkbook)
_Excel_Close($sWorkbook)

I got part of this code from other topics, but then i read that the Excel UDF changed and now i don't know what code works anymore xD

So I want to get the last row to get written so i can write in the next row. I tried serveral codes that i found in the forum (the ones in comment) but i couldn't get the value no matter what i did. What am i doing wrong?

Thank you in advance

Edited October 3, 2015 by EvilRubberDuck

[water]

The code you posted already uses the latest version of the Excel UDF.
How to get the latest used cell can be found in the wiki.

Edited October 3, 2015 by water

[EvilRubberDuck]

If you notice my script:

Global $aLastRow = $sWorkbook.ActiveSheet.UsedRange.SpecialCells($xlCellTypeLastCell)

I already use the code in the wiki. What i want to know is why it doesn't work in my script.

For example if i write after 

consolewrite($aLastRow)

I get no value...

[water]

Because you open a new workbook which is always empty.

[EvilRubberDuck]

Okey you are right, but with this new code it still doesn't work:

#include <Excel.au3>
#include <MsgBoxConstants.au3>





            Global $sFilePath1 = @ScriptDir & "\Resultados_ola.xlsx"
            ConsoleWrite($sFilePath1 & @LF)

                If FileExists($sFilePath1) = 0 Then
                    Global $oExcel = _Excel_Open()
                    Global $oWorkbook = _Excel_BookNew($oExcel)
                    _Excel_BookSaveAs($oWorkbook, @ScriptDir & "\Resultados_ola.xlsx", "xlsx")
                    

                Else
                Global $oExcel = _Excel_Open()
                Global $oWorkbook = _Excel_BookOpen($oExcel, $sFilePath1)

                Global $oRange = $oWorkbook.ActiveSheet.UsedRange.SpecialCells($xlCellTypeLastCell)
                ConsoleWrite($oRange & @LF)

                EndIf




            _Excel_RangeWrite($oWorkbook, $oWorkbook.Activesheet, "OLA", $oRange+1)
            
            _Excel_BookClose($oWorkbook)
            _Excel_Close($oExcel)

 

[Danp2]

Global $oRange = $oWorkbook.ActiveSheet.UsedRange.SpecialCells($xlCellTypeLastCell)
ConsoleWrite($oRange & @LF)

The resulting value in $oRange is an object, which explains why you can't output it to the console. Instead, try:

ConsoleWrite($oRange.row & @LF)

 

[EvilRubberDuck]

I didn't much care for the consolewrite line what i wanted was that each time i ran the script it write "OLA" under the last cell written. But it did help solve my problem because knowing that i had to add ".row" made it work in the rangewrite! So tahnk so much for the help!

_Excel_RangeWrite($oWorkbook, $oWorkbook.Activesheet, "OLA", "A" & $oRange.row+1)

            _Excel_BookClose($oWorkbook)
            _Excel_Close($oExcel)