Export в Excel

Kак да реализирам експорт в Ексел?Предварително благодаря.

Хайде погледни назад в темите - които се отнасят за ексел - и ще разбереш основните неща. Бих ти препоръчал да ползваш Native компоненти - но те са платени - или поне тези които аз съм срещал. Остава ти да ползваш другите варианти.

---
Е т'ва е живот!

vtkExport ([линк]) са безплатни (е, за некомерсиална употреба, ама то това не се брои ). Ползвал съм ги - html-то им направо не си работи, ама експортът към Excel е добре.

Blagodarq vi momcheta.Stavashe duma za tova kak da izbegna platenite gotovi komponenti. Za sega izpolzvam SMExport-raboti perfektno,no e za 30dni.Ta tova mi beshe problema.Oshte vednuj blagodarq.Shte se vuzpolzvam ot suvetite vi.
Kusmet na vsichki!

Tova sym go testval i raboti na Office 97 do Office 2000. Skoro she go tesvam i na XP ama sym siguren che she bachka.

var XLAp, WS, WBk, Range : OleVariant;
RowNum : Integer;
begin
//Printvane na doc za vremenno dadenite elementi
try
DataModule10.PrintQuery1.Sql.Clear;
DataModule10.PrintQuery1.Sql.Add('SELECT * FROM documents WHERE doc_id='''+IntToStr(doc_id)+''';');
DataModule10.PrintQuery1.Open;

//Table.First;
RowNum:=15;
XLAp:=CreateOleObject('Excel.Application');
XLAp.Visible:= True;
WBk:=XLAp.WorkBooks.Open(Unit1.ProgramDir+'\Vremenni\BlankDocSmall.xls');
WS:=WBk.Sheets['Sheet1'];
WS.Activate;
WBk.Sheets[1].Name:='Временни';

WS.Cells[7,5]:=IntToStr(DataModule10.PrintQuery1['doc_num']);
WS.Cells[7,9]:=DateToStr(DataModule10.PrintQuery1['doc_date']);

{DataModule10.ZMySqlQuery2.Sql.Clear;
DataModule10.ZMySqlQuery2.Sql.Add('SELECT * FROM '+tempTableName+' ORDER BY shifar ASC;');
DataModule10.ZMySqlQuery2.Open;}

DataModule10.PrintQuery1.Sql.Clear;
DataModule10.PrintQuery1.Sql.Add('SELECT positions.*, doc_map.doc_colichestvo, doc_map.doc_wanted FROM documents, positions, doc_map ');
DataModule10.PrintQuery1.Sql.Add('WHERE documents.doc_id='''+IntToStr(doc_id)+''' AND documents.doc_id=doc_map.doc_id AND doc_map.pos_id=positions.pos_id ORDER BY pos_shifar ASC;');
DataModule10.PrintQuery1.Open;
DataModule10.PrintQuery1.First;

While not DataModule10.ZMySqlQuery2.Eof do
begin
// GetDir(0, ProgramDir);
if DataModule10.PrintQuery1['doc_colichestvo']>0
then begin
WS.Range['C'+IntToStr(RowNum)+':E'+IntToStr(RowNum)].MergeCells:=True;
WS.Range['J'+IntToStr(RowNum)+':K'+IntToStr(RowNum)].MergeCells:=True;

WS.Cells[RowNum,1]:=IntToStr(RowNum-14);
WS.Cells[RowNum,2]:=IntToStr(DataModule10.PrintQuery1['pos_shifar']);
WS.Cells[RowNum,3]:=VarToStr(DataModule10.PrintQuery1['pos_name']);
WS.Cells[RowNum,7]:=ANSIReplaceStr(VarToStr(DataModule10.PrintQuery1['doc_colichestvo']),',','.');
WS.Cells[RowNum,6]:=VarToStr(DataModule10.PrintQuery1['mqrka']);
//if not ForClient.Checked
//then begin
WS.Cells[RowNum,8]:=VarToStr(DataModule10.PrintQuery1['pos_category']);
WS.Cells[RowNum,9]:=VarToStr(DataModule10.PrintQuery1['pos_corpus']);
// end;
WS.Cells[RowNum,10]:=VarToStr(DataModule10.PrintQuery1['doc_wanted'])+' дни';
WS.Range['A'+IntToStr(RowNum)+':K'+IntToStr(RowNum)].Font.Size:=8;
RowNum:=RowNum+1;
end;
DataModule10.ZMySqlQuery2.Next;
end;
//Добавяне на заключителната част на документа!
WS.Cells[RowNum+1,7]:='За:';
WS.Cells[RowNum+2,7]:='Приел:';
WS.Cells[RowNum+4,7]:='ЕГН';
WS.Cells[RowNum+1,1]:='За: "Edi koj si" ЕООД';
WS.Cells[RowNum+2,1]:='Предал:';
WS.Cells[RowNum+4,1]:='ЕГН';

//Formatirane na dokumenta!
Range:=WS.Range['A14:K'+IntToStr(RowNum-1)];
Range.Borders.LineStyle:=1;
Range.Columns.HorizontalAlignment := -4131;
// Range.Columns[1].HorizontalAlignment:=-4108;//xlCenter
// Range.Columns[6].HorizontalAlignment:=-4152;//xlRight
// Range.Columns[7].HorizontalAlignment:=-4108;//xlCenter
//Now save the document
//if DocType=1
//then WBk.SaveAs(Unit1.ProgramDir+'\Vremenni\TempDoc-'+IntToStr(DocNum)+'_Skl-'+Copy(ComboBox1.Text,1,2))
//else WBk.SaveAs(Unit1.ProgramDir+'\Vremenni\TempDocRet-'+IntToStr(DocNum)+'_Skl-'+Copy(ComboBox1.Text,1,2));
except
ShowMessage('Проблем при отпечатването на документа');
end;

twa e s automation object :( po interesno e ako se naprawi s ADO togawa kopirash nekaf templete ot nqkade, otwarqsh go s ado i praskash watre kato besen - makar che kato se zamislish to si e pak ActiveX ama mi se struwa che sha e po prenosimo prez wersiite

------------------------------
I got a COMPILER, and I'm not afraid to use it!

Ami ne sym probval s ADO. E, to ADO -to si e jiv ActiveX :-)
Za tozi source garantiram, che e mnogo dobre prenosim :-), koeto ne moje da se kaje pri upotreba na gotovite server-i vyv VCL-a. Inache to v sluchaq az tochno template si polzvam - t.e. puskam Excel-a, pravq si nqkakvo skele koeto si kofti trypka da naprawish programno i posle si go pulnq.

za tozi kod izpolzva li se niakakuv komponent ot Delphi?

unit OfficeForm;

interface

uses
SysUtils, Windows, Messages, Classes, Graphics,
Controls, Forms, DBCtrls, StdCtrls, DBTables,
ExtCtrls, Mask, Db, Dialogs, Excel97, Word97,
OleServer;

type
TFormOff = class(TForm)
DBEdit3: TDBEdit;
Label3: TLabel;
Label2: TLabel;
DBEdit2: TDBEdit;
DBEdit1: TDBEdit;
Label1: TLabel;
DBNavigator1: TDBNavigator;
Table1: TTable;
DataSource1: TDataSource;
BtnWord: TButton;
BtnExcel: TButton;
SaveDialog1: TSaveDialog;
ExcelApplication1: TExcelApplication;
WordDocument1: TWordDocument;
procedure BtnWordClick(Sender: TObject);
procedure BtnExcelClick(Sender: TObject);
end;

var
FormOff: TFormOff;

implementation

{$R *.DFM}

uses
ComObj, ActiveX;

procedure TFormOff.BtnWordClick(Sender: TObject);
var
Bookmark: TBookmark;
RangeW: Word97.Range;
v1: Variant;
ov1: OleVariant;
Row1: Word97.Row;
begin
WordDocument1.Activate;
// insert title
WordDocument1.Range.Text := 'American Capitals from ' + Table1.TableName;
WordDocument1.Range.Font.Size := 14;
// disable the UI
Table1.DisableControls;
try
// store the current position
Bookmark := Table1.GetBookmark;
try
// scan the database table
Table1.First;
while not Table1.EOF do
begin
// send the two fields
WordDocument1.Range.InsertParagraphAfter;
WordDocument1.Paragraphs.Last.Range.Text :=
Table1.FieldByName ('Name').AsString + #9 +
Table1.FieldByName ('Capital').AsString;
Table1.Next;
end;
finally
// go back to the bookmark and destroy it
Table1.GotoBookmark (Bookmark);
Table1.FreeBookmark (Bookmark);
end;
finally
// re-enable the controls
Table1.EnableControls;
end;
RangeW := WordDocument1.Content;
v1 := RangeW;
v1.ConvertToTable (#9, 19, 2);
Row1 := WordDocument1.Tables.Item(1).Rows.Get_First;
Row1.Range.Bold := 1;
Row1.Range.Font.Size := 30;
Row1.Range.InsertParagraphAfter;
ov1 := ' ';
Row1.ConvertToText (ov1);
end;

procedure TFormOff.BtnExcelClick(Sender: TObject);
var
RangeE: Excel97.Range;
I, Row: 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 Table1.Fields.Count - 1 do
begin
RangeE.Value := Table1.Fields .DisplayLabel;
RangeE := RangeE.Next;
end;
// add field data in following rows
Table1.DisableControls;
try
Bookmark := Table1.Bookmark;
try
Table1.First;
Row := 2;
while not Table1.EOF do
begin
RangeE := ExcelApplication1.Range ['A' + IntToStr (Row),
'A' + IntToStr (Row)];
for I := 0 to Table1.Fields.Count - 1 do
begin
RangeE.Value := Table1.Fields .AsString;
RangeE := RangeE.Next;
end;
Table1.Next;
Inc (Row);
end;
finally
Table1.Bookmark := Bookmark;
end;
finally
Table1.EnableControls;
end;
// format the section
RangeE := ExcelApplication1.Range ['A1', 'E' + IntToStr (Row - 1)];
RangeE.AutoFormat (3, NULL, NULL, NULL, NULL, NULL, NULL);
end;

initialization
CoInitialize (nil);
end.

допълнение (формата)

object FormOff: TFormOff
Left = 187
Top = 152
Width = 414
Height = 209
Caption = 'DB Office'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = True
PixelsPerInch = 96
TextHeight = 13
object Label3: TLabel
Left = 40
Top = 124
Width = 48
Height = 13
Caption = 'Continent:'
end
object Label2: TLabel
Left = 40
Top = 91
Width = 35
Height = 13
Caption = 'Capital:'
end
object Label1: TLabel
Left = 40
Top = 56
Width = 39
Height = 13
Caption = 'Country:'
end
object DBEdit3: TDBEdit
Left = 104
Top = 120
Width = 169
Height = 21
DataField = 'Continent'
DataSource = DataSource1
TabOrder = 0
end
object DBEdit2: TDBEdit
Left = 104
Top = 86
Width = 169
Height = 21
DataField = 'Capital'
DataSource = DataSource1
TabOrder = 1
end
object DBEdit1: TDBEdit
Left = 104
Top = 52
Width = 169
Height = 21
DataField = 'Name'
DataSource = DataSource1
TabOrder = 2
end
object DBNavigator1: TDBNavigator
Left = 0
Top = 0
Width = 406
Height = 25
DataSource = DataSource1
VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbEdit, nbPost, nbCancel]
Align = alTop
Flat = True
TabOrder = 3
end
object BtnWord: TButton
Left = 296
Top = 67
Width = 89
Height = 25
Caption = '&Word Table'
TabOrder = 4
OnClick = BtnWordClick
end
object BtnExcel: TButton
Left = 296
Top = 104
Width = 89
Height = 25
Caption = '&Excel Table'
TabOrder = 5
OnClick = BtnExcelClick
end
object Table1: TTable
Active = True
DatabaseName = 'DBDEMOS'
TableName = 'COUNTRY.DB'
Left = 16
Top = 48
end
object DataSource1: TDataSource
DataSet = Table1
Left = 16
Top = 96
end
object SaveDialog1: TSaveDialog
DefaultExt = 'DOC'
Filter = 'Word Document (*.doc)|*.doc|Any file (*.*)|*.*'
Options = [ofPathMustExist, ofCreatePrompt]
Left = 16
Top = 136
end
object ExcelApplication1: TExcelApplication
AutoConnect = False
ConnectKind = ckRunningOrNew
AutoQuit = False
Left = 312
Top = 32
end
object WordDocument1: TWordDocument
AutoConnect = False
ConnectKind = ckRunningOrNew
Left = 312
Top = 128
end
end

E, nali sym napisal che ne se izpolzva :-)
Izpolzva se samo ComObj koeto ne e komponent, a biblioteka