For det første: Søg selv informationen via Google. Første link når du søger på "Delphi Excel Automation" giver som første link resultatet
http://community.borland.com/article/0,1410,10126,00.html
Dette link giver svaret - i hvert fald for Delphi 3.
Desuden er der et hel nyheds gruppe til egnet netop dette spørgsmål: borland.public.delphi.oleautomation
For det andet: Hvilken Delphi version benytter du? De seneste versioner har mere udbyggede muligheder for det du ønsker.Delphi 7 har således et "Server" faneblad med en hel stak VCL komponenter der bl.a. kan det du søger. Start med TExcelApplication - søg på Google efter info vedr. denne. Du vil på et eller andet tidspunkt finde referencer til Deborah Pathes website. Hun har bl.a. et site vedr Excel automation (
http://www.djpate.freeserve.co.uk/AutoExcl.htm) samt et demo project som du kan finde referencen til på denne side.
Mere specifikt svar på dit spørgsmål:
>>>>>How to format a range<<<<<
Assuming a _Worksheet variable, WS:
var
Format: OleVariant;
...
WS := Excel.ActiveSheet as _Worksheet;
To format one cell in the General number style
Format := 'General';
WS.Range['A1', 'A1'].NumberFormat := Format;
To format a range in the 'Text' style, aligned right
Weirdly enough, to give a range a 'text' style you have to set its NumberFormat property to '@':
with WS.Range['A1', 'M10'] do
begin
NumberFormat := '@';
HorizontalAlignment := xlHAlignRight;
end;
To format a range of cells with the 'March 4, 1999' date style
Format := 'mmmm d, yyyy';
WS.Range['B1', 'C10'].NumberFormat := Format;
To format an entire column in a customized currency style
Format := '$#,##0.00_);[Red]($#,##0.00)';
WkSheet.Range['C1', 'C1'].EntireColumn.NumberFormat := Format;
To set the text in a cell to 20pt Arial, bold, and fuchsia
with Excel.ActiveCell.Font do
begin
Size := 20;
FontStyle := 'Bold';
Color := clFuchsia;
Name := 'Arial';
end;
To change the cell's colour
Excel.ActiveCell.Interior.Color := clBtnFace;
or
Excel.Range['B2', 'C6'].Interior.Color := RGB(223, 123, 123);
To make the first three characters in a cell bold
var
Start, Length: OleVariant;
...
Start := 1;
Length := 3;
Excel.ActiveCell.Characters[Start, Length].Font.FontStyle := 'Bold';
Start := 4;
Length := 16;
Excel.ActiveCell.Characters[Start, Length].Font.FontStyle := 'Regular';