Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Spreadsheet functions
Message
From
17/10/2006 12:28:47
 
 
General information
Forum:
Visual FoxPro
Category:
COM/DCOM and OLE Automation
Environment versions
Visual FoxPro:
VFP 7 SP1
OS:
Windows XP SP2
Database:
Visual FoxPro
Miscellaneous
Thread ID:
01162592
Message ID:
01162623
Views:
17
This message has been marked as a message which has helped to the initial question of the thread.
>>>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
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform