:o)))
I could put some powder on that s/s to make it better. I just wanted to know if that kind of subtotals you want :-)

>Sorry
>
>I forgot to do that, so I got the message in edit mode, to prevent your seeing it but it looked like you did. :-)
>
>I got the s/s up but it's very confusing. I can't readily figure it and I doubt my users would - all the drill-down and bracketed layers.
>
>I can't tell where the totals are.
>
>I'm really disapointed with MY original s/s anyway, as the prev period - curr period results aren't side-by-side for comparison, as on the report (remember the screen dump?), so that doesn't help at all!
>
>Did you see my last post on why the SQL is giving more than one operator?
>What am I saying? You must be tired now, Boris, your day starts earlier than mine back east.
>Me the Friday Virus :-)
>
>Terry
>
>
>
>
>>Did you change actual path to XLS? Becuase it works here.
>>If you did, maybe this workbook is opened somewhere?
>>oExcel.Workbooks.Open([d:\terry\S28-07-2006.XLS]) && Change with actual path
>>
>>>Thanks Boris
>>>
>>>This brought up an excel, totally blank, no cells, grey background. I dismissed it and VFP was hung till I pressed esc.
>>>
>>>???
>>>
>>>>>Boris. Yes, kept the op and route. I've sent you an email as requested.
>>>>>
>>>>>>Terry can you post the code you use for Automation? Did you keep Operator and route code in Excel Sheet? I ask you becuase Excel has wonderful function called Subtotal.
>>>>>
>>>>>Terry
>>>>>>
>>>>
>>>>Terry, Run this and tell me is this enough?
>>>>

>>>>#define xlLastCell 11
>>>>#define xlSum -4157
>>>>LOCAL oExcel AS Excel.Application
>>>>oExcel = CREATEOBJECT([Excel.Application])
>>>>oExcel.Visible = .t.
>>>>oExcel.Workbooks.Open([d:\terry\S28-07-2006.XLS]) && Change with actual path
>>>>oExcel.Range([A1],oExcel.ActiveCell.SpecialCells(xlLastCell)).Select()
>>>>
>>>>DECLARE oTotalFields[7]
>>>>oTotalFields[1] = 8
>>>>oTotalFields[2] = 9
>>>>oTotalFields[3] = 10
>>>>oTotalFields[4] = 11
>>>>oTotalFields[5] = 12
>>>>oTotalFields[6] = 13
>>>>oTotalFields[7] = 14
>>>>WITH oExcel.Selection
>>>>     .Subtotal(1, xlSum, @oTotalFields, .t., .f., .t.)
>>>>     .Subtotal(2, xlSum, @oTotalFields, .f., .f., .t.)
>>>>ENDWITH
>>>>