Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
ExcelListener class placed in downloads
Message
From
02/01/2007 19:26:04
 
 
To
02/01/2007 17:11:01
General information
Forum:
Visual FoxPro
Category:
Other
Environment versions
Visual FoxPro:
VFP 9 SP1
Miscellaneous
Thread ID:
01180997
Message ID:
01181636
Views:
28
The file to download is xsdref.msi. You can google for it. I believe I got it at:
http://www.microsoft.com/downloads/details.aspx?familyid=fe118952-3547-420a-a412-00a2662442d9&displaylang=en

The way I went about implementing changes was:
1) Investigate if decision can be made from data in frx (for this you can help yourself with 90frx.frx report that is in HOME()+'Tools\Filespec')
2) Learn how to tell Excel. One way was with help file found at address above an another was to save file with Excel before and after a single change and compare files.
3) When it became necessary to add a command in comment I tried to make the command generic and simple to use.

In the case you mention that background color should not be set if VFP report has transparent background (seems like a reasonable assumption) the first step would be to investigate how VFP saves transparent background.

Even though I added characteristics as you seem to be doing, driven by need, it is important to keep the future in mind and try to be as generic and coherent as possible.

I think if several of us work on this class we can make it very useful. It would pay to coordinate efforts so we can have a richer and richer single class that handles many different situations easily.



>Many of my forms shows black text with black background in Excel (Openoffice changes foreground color to white automatically in this case).
>
>I think that
>
>
REPLACE ALL cExcelInterior WITH 'Solid,';
>    	+ RIGHT(TRANSFORM(RGB(FillRed,FillGreen,FillBlue),'@0'),6) + ',' ;
>		+ RIGHT(TRANSFORM(RGB(PenRed,PenGreen,PenBlue),'@0'),6) ;
>	FOR ( FillRed # 255 OR FillGreen # 255 OR FillBlue # 255 ;
>				OR PenRed # 0 OR PenGreen # 0 OR PenBlue # 0 ) ;
>AND FillRed # -1 AND FillGreen # -1 AND FillBlue #-1 AND ;
>	PenRed # -1 AND PenGreen # -1 AND PenBlue # -1
>
>
>should not set background color if object mode is transparent. How to change this?
>
>I also find your custom excel style applied by listener nice for my forms. Generic parts of this style should probably remain in listener.
>
>Where to find XML format description ?
>
>>We need to come up with a strategy to handle different charsets, date formats, etc. explicitly. Perhaps with properties to indicate which to use if it cannot be determined on the fly.
>
>Can you add the
>
>
   CASE OCCURS('.', tcContents)>1
>		llIsNumber = .F.
>
>to IsNumber().
>For me it solves date isse.
>
>
>>Alex
>>
>>>I'm sorry, I did'nt test my changes carefully.
>>>With my changes Excel show each character as two characters and Openoffice 2 hangs. To fix this
>>>I changed xml_file_header to
>>>
>>>
TEXT TO lcRetVal TEXTMERGE NOSHOW PRETEXT 2
>>><?xml version="1.0" encoding="Windows-<<TRANSFORM(CPCURRENT())>>"?>
>>><?mso-application progid="Excel.Sheet"?>
>>>ENDTEXT
>>>
>>>
>>>and conversion in .Render() to
>>>
>>>
cContents = ;
>>>STRCONV(strt(strt(strt(cContentsToBeRendered,'&','&'),'>','>' ),'<','<'),6)
>>>
>>>However, this does not allow to implement fontcharset.
>>>Any idea how to create xml file which has UTF-8, UTF-16 or similar encoding?
>>>
>>>Empty line is shown between each detail line.
>>>How to remove those empty lines ?
>>>
>>>>Later I'll extract the default code in ApplyExcelStyle which really should be outside the class because it is specific to my situation.
>>>
>>>I changed the code so it works without Excel installed, just creates file. Openoffice can open generated files also.
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform