BorlandTalk.com

Kevin Pollard · Guest

How do I write an Excel file from Delphi6 Professional? Currently I
write the file out as a Comma Separate Values (CSV) file and ask users
to double click on it so that Excel opens it. But I'd like to write a
proper Excel (XLS) file.

How can i do that in Delphi 6 Professional?

ralph · Guest

I don't know how to write an .xls file, but you could write it in .csv
format by simply writing a text file with commas as a delimiter.

"Kevin Pollard" <kpollard (AT) scu (DOT) edu.au> wrote

Martijn Saly · Guest

Charles LaCour · Guest

"ralph" <machio (AT) karatekid (DOT) com> wrote

Frits v/d Laan · Guest

I got this from an example and it works well

(uses SHELLAPI)
excelapplication - component
( D5)

procedure Tselform.BitBtn2Click(Sender: TObject);
var RangeE: Excel97.Range;
I, Row,fc: Integer;
Bookmark: TBookmarkStr;
begin
// create and show
ExcelApplication1.Visible [0] := True;
ExcelApplication1.Workbooks.Add (NULL, 0);
// fill is the first row with field titles
RangeE := ExcelApplication1.ActiveCell;
for I := 0 to seltable.Fields.Count - 1 do
begin
RangeE.Value := seltable.Fields [I].DisplayLabel;
RangeE := RangeE.Next;
end;
// add field data in following rows
seltable.DisableControls;
try
Bookmark := seltable.Bookmark;
try
seltable.First;
Row := 2;
while not seltable.EOF do
begin
RangeE := ExcelApplication1.Range ['A' + IntToStr (Row),
'A' + IntToStr (Row)];
for I := 0 to seltable.Fields.Count - 1 do
begin
RangeE.Value := seltable.Fields [I].AsString;
RangeE := RangeE.Next;
end;
seltable.Next;
Inc (Row);
end;
finally
seltable.Bookmark := Bookmark;
end;
finally
seltable.EnableControls;
end;
// format the section
RangeE := ExcelApplication1.Range ['A1', 'K' + IntToStr (Row - 1)];
RangeE.AutoFormat (3, NULL, NULL, NULL, NULL, NULL, NULL);
end;

On Mon, 1 Dec 2003 18:37:58 +0100, "Martijn Saly" <martijn (AT) thany (DOT) org>
wrote: