>>>Hi guys
>>>
>>>I need to do 2 things:
>>>
>>>1) from my current cursor I need to produce 3 worksheets in the same book, each being more of a summary of the previous.
>>>i.e. I have a cursor with all the data, cut down to sub-totals and totals, and cut down to just totals (and a grand total for each, of course). I know how to reduce the cursor for each sheet, but how to include each one in the same book.
>>>
>>>2) VFP currently does the above totals/sub-totals but my users would prefer the SUM() function, as they may need to insewrt extra rows in the s/s/ afterwards. I imagine this is a bit tricky.
>>>
>>>A tall order?
>>>
>>>Thanks for listening
>>>
>>>Terry
>>
>>Terry,
>>
>>For the first part:
>>
>>ox = CREATEOBJECT('Excel.Application')
>>ob = ox.Workbooks.Open('YourWorkbook.xls')
>>os1 = ob.Worksheets(1)
>>os2 = ob.Worksheets(2)
>>os3 = ob.Worksheets(3)
>>
>>Regards,
>
>Thanks Jim
>
>I can see that that references 3 worksheets within a book, but how to export my respective cursors into trhe 3 sheets?
>
>Terry
Terry,
Something like this. Not tested and it would quicker using field names, etc.
oRange = os1.Range('A1')
SELECT Cursor1
WITH oRange
SCAN
FOR nPtr = 1 to FCOUNT('Cursor1')
.OFFSET(nPtr-1).Value = EVALUATE(FIELD(nPtr))
ENDFOR
oRange = oRange.OFFSET(0,1)
ENDSCAN
ENDWITH
Repeat with os2 and Cursor2, etc.
Regards,
Jim