$oExcel.ActiveSheet.UsedRange.Rows.Count

[InfraRed]

Hi.

I used this for a long time:

$row=$oExcel.ActiveSheet.UsedRange.Rows.Count

But in version 3.3.12.0 (1st June, 2014) (Release) Excel UDF was re-written and this code stopped working. I see this:

"D:\Dropbox\Test.au3" (8) : ==> Variable must be of type "Object".:

Is there any solution? Thanks.

[InfraRed]

Oh, I see, now I have to 

$oExcel1 = _Excel_Open()

before 

_Excel_BookOpen

[InfraRed]

Now trying to put some Value into cell I see:

"C:\Program Files (x86)\AutoIt3\Include\Excel.au3" (876) : ==> Illegal text at the end of statement (one statement per line).:
Func _Excel_RangeWrite($oWorkbook, $vWorksheet, $vValue, $vRange = Default, $bValue = Default, $bForceFunc = Default)
Func _Excel_RangeWrite($oWorkbook, $vWorksheet, $vValue, $vRange = Default, $bV^ ERROR

Using 

_Excel_RangeWrite ($oExcel, $oExcel.Activesheet, 0, "F2")

[water]

Can you please post the full script? Most of the time the error is caused somewhere else (missing quote etc.).

[InfraRed]

Here it is:

#include <Misc.au3>
#Include <File.au3>
#Include <Array.au3>
#include <Excel.au3>
#include <Math.au3>
$oExcel1 = _Excel_Open(False)
$oExcel = _Excel_BookOpen ($oExcel1,"D:\Dropbox\Gold10.xls", 0)
$row=$oExcel.ActiveSheet.UsedRange.Rows.Count
$SilvemoonA=Int(_Excel_RangeRead ($oExcel, Default , "C" & $row)/1000)
$KazzakH=Int(_Excel_RangeRead ($oExcel, Default , "E" & $row)/1000)
$DraenorH=Int(_Excel_RangeRead ($oExcel, Default , "G" & $row)/1000)
$RavencrestA=Int(_Excel_RangeRead ($oExcel, Default , "I" & $row)/1000)
$FrostmaneA=Int(_Excel_RangeRead ($oExcel, Default , "K" & $row)/1000)
$SylvanasA=Int(_Excel_RangeRead ($oExcel, Default , "M" & $row)/1000)
$RagnarosH=Int(_Excel_RangeRead ($oExcel, Default , "O" & $row)/1000)
$TwistingNetherH=Int(_Excel_RangeRead ($oExcel, Default , "Q" & $row)/1000)
_Excel_BookClose($oExcel)
$oExcel = _Excel_BookOpen ($oExcel1,"D:\Dropbox\gold_stock.xls", 0)
_Excel_RangeWrite ($oExcel, $oExcel.Activesheet, $DraenorH, "C2")
If $DraenorH>30 Then _Excel_RangeWrite ($oExcel, $oExcel.Activesheet, 0, "F2") Else _Excel_RangeWrite ($oExcel, $oExcel.Activesheet, 1, "F2")
_Excel_RangeWrite ($oExcel, $oExcel.Activesheet, $FrostmaneA, "C3")
If $FrostmaneA>30 Then _Excel_RangeWrite ($oExcel, $oExcel.Activesheet, 0, "F3") Else _Excel_RangeWrite ($oExcel, $oExcel.Activesheet, 1, "F3")
_Excel_RangeWrite ($oExcel, $oExcel.Activesheet, $KazzakH, "C4")
If $KazzakH>30 Then _Excel_RangeWrite ($oExcel, $oExcel.Activesheet, 0, "F4") Else _Excel_RangeWrite ($oExcel, $oExcel.Activesheet, 1, "F4")
_Excel_RangeWrite ($oExcel, $oExcel.Activesheet, $RagnarosH, "C5")
If $RagnarosH>30 Then _Excel_RangeWrite ($oExcel, $oExcel.Activesheet, 0, "F5") Else _Excel_RangeWrite ($oExcel, $oExcel.Activesheet, 1, "F5")
_Excel_RangeWrite ($oExcel, $oExcel.Activesheet, $RavencrestA, "C6")
If $RavencrestA>30 Then _Excel_RangeWrite ($oExcel, $oExcel.Activesheet, 0, "F6") Else _Excel_RangeWrite ($oExcel, $oExcel.Activesheet, 1, "F6")
_Excel_RangeWrite ($oExcel, $oExcel.Activesheet, $SilvemoonA, "C7")
If $SilvemoonA>30 Then _Excel_RangeWrite ($oExcel, $oExcel.Activesheet, 0, "F7") Else _Excel_RangeWrite ($oExcel, $oExcel.Activesheet, 1, "F7")
_Excel_RangeWrite ($oExcel, $oExcel.Activesheet, $SylvanasA, "C8")
If $SylvanasA>30 Then _Excel_RangeWrite ($oExcel, $oExcel.Activesheet, 0, "F8") Else _Excel_RangeWrite ($oExcel, $oExcel.Activesheet, 1,"F8")
_Excel_RangeWrite ($oExcel, $oExcel.Activesheet, $TwistingNetherH, "C9")
If $TwistingNetherH>30 Then _Excel_RangeWrite ($oExcel, $oExcel.Activesheet, 0, "F9") Else _Excel_RangeWrite ($oExcel, $oExcel.Activesheet, 1, "F9")
_Excel_BookClose($oExcel)
_Excel_Close($oExcel1, True, True)

[water]

You can't have If / Then / Else on the same line.

[InfraRed]

But it worked before, and still working in older versions.. Ok, I'll try

Edited July 10, 2014 by InfraRed

[InfraRed]

Omg, really, it works! Thanks a lot.

[water]

If you select "Syntax Check" in SciTE you should get error messages showing you where to change your script.