> Selection.Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(5), _ > Replace:=True, PageBreaks:=True, SummaryBelowData:=True >>I have
> >oExcel=CREATEOBJECT("Excel.Application") >oExcel.visible= .T. > >oW=oExcel.Workbooks.Add(lcTemplate) >ow.Worksheets[1].select > >oRange = oExcel.ActiveSheet.Range("A7:F"+TRANSFORM(6+lnRecCount)) > >oExcel.ActiveSheet.paste(oRange) >** now I want excel to subtotal by column a > > > ****Selection.Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(5), _ > Replace:=True, PageBreaks:=True, SummaryBelowData:=True >>