>Hi,
>
>I try this, but not success,
>please advise.
>
>

>dimension atemp[1]
>atemp[1]=4
>oExcel.activesheet.Selection.Subtotal(1,xlSum, @atemp,.t.,.f.,.t.)
>
>

>
>Thanks.

This works for me:

#define xlSum -4157

LOCAL oExcel AS Excel.Application
oExcel = CREATEOBJECT([Excel.Application])
oExcel.Visible= .t.
oExcel.DisplayAlerts = .f.
oExcel.Workbooks.Add()
oExcel.ActiveCell.FormulaR1C1 = "_1_"
oExcel.Range("A2").Select
oExcel.ActiveCell.FormulaR1C1 = "_1_"
oExcel.Range("A3").Select
oExcel.ActiveCell.FormulaR1C1 = "_2_"
oExcel.Range("A4").Select
oExcel.ActiveCell.FormulaR1C1 = "_2_"

oExcel.Range("B1").Select
oExcel.ActiveCell.FormulaR1C1 = "1"
oExcel.Range("B2").Select
oExcel.ActiveCell.FormulaR1C1 = "2"

oExcel.Range("B3").Select
oExcel.ActiveCell.FormulaR1C1 = "5"
oExcel.Range("B4").Select
oExcel.ActiveCell.FormulaR1C1 = "6"

dimension atemp[1]
atemp[1]=2

oExcel.Selection.Subtotal(1, xlSum, @atemp,.t., .f., .t.)