zertovitch / excel-writer Goto Github PK
View Code? Open in Web Editor NEWExcel Writer: a standalone, portable Ada package for producing Excel spreadsheets
Home Page: https://excel-writer.sourceforge.io/
Excel Writer: a standalone, portable Ada package for producing Excel spreadsheets
Home Page: https://excel-writer.sourceforge.io/
Excel Writer ============ The Excel Writer consists of an Ada package, Excel_Out, which produces Excel files - as physical files, or as other types of data streams. The creation of an Excel file is as simple as this small procedure: with Excel_Out; procedure Small_demo is xl : Excel_Out.Excel_Out_File; begin xl.Create ("Small.xls"); xl.Put_Line ("Hello world !"); xl.Close; end; License ======= Excel Writer is licensed under the MIT License. ==== Full description in: excel_writer.txt
I use excel-writer to produce BIFF2 (or BIFF 3 or BIFF 4) documents which I open with Libreoffice Calc and MS Excel 2013
Currently the formulas are displayed.
This is already very good.
I want the results of the formulas to be displayed.
page 216 - 217
https://www.openoffice.org/sc/excelfileformat.pdf
Record WINDOW2, BIFF 2:
0 = Show formula results 1 = Show formulas
Record WINDOW2, BIFF 3-BIFF 5:
0 = Show formula results 1 = Show formulas
Bits 0 Mask= 0001 0 = Show formula results 1 = Show formulas
In
procedure Write_Window2 is
begin
-- 5.110 WINDOW2
case xl.format is
when BIFF2 =>
WriteBiff (xl, 16#003E#,
(0, -- Display formulas, not results
1, -- Show grid lines
1, -- Show sheet headers
Boolean'Pos (xl.frz_panes),
1 -- Show zero values as zeros, not empty cells
)
&
Intel_16 (0) & -- First visible row
Intel_16 (0) & -- First visible column
(1, -- Use automatic grid line colour
0, 0, 0, 0) -- Grid line RGB colour
);
when BIFF3 | BIFF4 => -- NB: more options in BIFF8
WriteBiff (xl, 16#023E#,
-- http://msdn.microsoft.com/en-us/library/dd947893(v=office.12).aspx
Intel_16 ( -- Option flags:
0 * 1 + -- Display formulas, not results
1 * 2 + -- Show grid lines
1 * 4 + -- Show sheet headers
Boolean'Pos (xl.frz_panes)
* 8 + -- Panes are frozen
1 * 16 + -- Show zero values as zeros, not empty cells
1 * 32 + -- Gridlines of the window drawn in the default window foreground color
0 * 64 + -- Right-to-left mode
1 * 128 + -- Show outlines (guts ?!)
0 * 256 -- Frozen, not split
) &
Intel_16 (0) & -- First visible row
Intel_16 (0) & -- First visible column
Intel_32 (0) -- Grid line colour
);
end case;
end Write_Window2;
i try
WriteBiff (xl, 16#003E#,
(1, -- Display formulas, not results
I don't get the expected result no (in LibreOffice or MS Excel 2013).
It may be a problem with LibreOffice (which would read BIFF 2 differently than openoffice ?) ...
When I define define_format exceed 44, the execution error occurs.
error message:
"raised CONSTRAINT_ERROR:
excel_out.adb:700 index check failed"
A declarative, efficient, and flexible JavaScript library for building user interfaces.
๐ Vue.js is a progressive, incrementally-adoptable JavaScript framework for building UI on the web.
TypeScript is a superset of JavaScript that compiles to clean JavaScript output.
An Open Source Machine Learning Framework for Everyone
The Web framework for perfectionists with deadlines.
A PHP framework for web artisans
Bring data to life with SVG, Canvas and HTML. ๐๐๐
JavaScript (JS) is a lightweight interpreted programming language with first-class functions.
Some thing interesting about web. New door for the world.
A server is a program made to process requests and deliver data to clients.
Machine learning is a way of modeling and interpreting data that allows a piece of software to respond intelligently.
Some thing interesting about visualization, use data art
Some thing interesting about game, make everyone happy.
We are working to build community through open source technology. NB: members must have two-factor auth.
Open source projects and samples from Microsoft.
Google โค๏ธ Open Source for everyone.
Alibaba Open Source for everyone
Data-Driven Documents codes.
China tencent open source team.