delphi export excel!

hi I want my delphi DB that I made to export to excel file how it is possible?and the most important thing is delphi reports that I made I want them to export as excel files ,plz help me !!

thank you.very very much!

Dear setogirl
I'm Sorry I don't know what is your mine about

But about your Questions :
1- you can Export any kind of Data Base Table to Excel Sheet (not only Access Tables) by Flowing Code

(Toggle Plain Text)

procedure TForm1.Button1Click(Sender: TObject);
var
    XApp:Variant;
    sheet:Variant;
    r,c:Integer;
    row,col:Integer;
    filName:Integer;
    q:Integer;
begin
    XApp:=CreateOleObject('Excel.Application');
    XApp.Visible:=true;
    XApp.WorkBooks.Add(-4167);
    XApp.WorkBooks[1].WorkSheets[1].Name:='Sheet1';
    sheet:=XApp.WorkBooks[1].WorkSheets['Sheet1'];
    for filName:=0 to AdoQuery1.FieldCount-1 do
    begin
        q:=filName+1;
        sheet.Cells[1,q]:=AdoQuery1.Fields[filName].FieldName;
    end;
    for r:=0 to AdoQuery1.RecordCount-1 do
    begin
        for c:=0 to AdoQuery1.FieldCount-1 do
        begin
            row:=r+2;
            col:=c+1;
            sheet.Cells[row,col]:=AdoQuery1.Fields[c].AsString;
        end;
        AdoQuery1.Next;
    end;
    XApp.WorkSheets['Sheet1'].Range['A1:AA1'].Font.Bold:=True;
    XApp.WorkSheets['Sheet1'].Range['A1:K1'].Borders.LineStyle :=13;
    XApp.WorkSheets['Sheet1'].Range['A2:K'+inttostr(AdoQuery1.RecordCount-1)].Borders.LineStyle :=1;
    XApp.WorkSheets['Sheet1'].Columns[1].ColumnWidth:=16;
    XApp.WorkSheets['Sheet1'].Columns[2].ColumnWidth:=7;
    XApp.WorkSheets['Sheet1'].Columns[3].ColumnWidth:=19;
    XApp.WorkSheets['Sheet1'].Columns[4].ColumnWidth:=9;
    XApp.WorkSheets['Sheet1'].Columns[5].ColumnWidth:=9;
    XApp.WorkSheets['Sheet1'].Columns[6].ColumnWidth:=9;
    XApp.WorkSheets['Sheet1'].Columns[7].ColumnWidth:=46;
    XApp.WorkSheets['Sheet1'].Columns[8].ColumnWidth:=9;
    XApp.WorkSheets['Sheet1'].Columns[9].ColumnWidth:=7;
    XApp.WorkSheets['Sheet1'].Columns[10].ColumnWidth:=6;
    XApp.WorkSheets['Sheet1'].Columns[11].ColumnWidth:=13;
end;

procedure TForm1.Button1Click(Sender: TObject); var XApp:Variant; sheet:Variant; r,c:Integer; row,col:Integer; filName:Integer; q:Integer; begin XApp:=CreateOleObject('Excel.Application'); XApp.Visible:=true; XApp.WorkBooks.Add(-4167); XApp.WorkBooks[1].WorkSheets[1].Name:='Sheet1'; sheet:=XApp.WorkBooks[1].WorkSheets['Sheet1']; for filName:=0 to AdoQuery1.FieldCount-1 do begin q:=filName+1; sheet.Cells[1,q]:=AdoQuery1.Fields[filName].FieldName; end; for r:=0 to AdoQuery1.RecordCount-1 do begin for c:=0 to AdoQuery1.FieldCount-1 do begin row:=r+2; col:=c+1; sheet.Cells[row,col]:=AdoQuery1.Fields[c].AsString; end; AdoQuery1.Next; end; XApp.WorkSheets['Sheet1'].Range['A1:AA1'].Font.Bold:=True; XApp.WorkSheets['Sheet1'].Range['A1:K1'].Borders.LineStyle :=13; XApp.WorkSheets['Sheet1'].Range['A2:K'+inttostr(AdoQuery1.RecordCount-1)].Borders.LineStyle :=1; XApp.WorkSheets['Sheet1'].Columns[1].ColumnWidth:=16; XApp.WorkSheets['Sheet1'].Columns[2].ColumnWidth:=7; XApp.WorkSheets['Sheet1'].Columns[3].ColumnWidth:=19; XApp.WorkSheets['Sheet1'].Columns[4].ColumnWidth:=9; XApp.WorkSheets['Sheet1'].Columns[5].ColumnWidth:=9; XApp.WorkSheets['Sheet1'].Columns[6].ColumnWidth:=9; XApp.WorkSheets['Sheet1'].Columns[7].ColumnWidth:=46; XApp.WorkSheets['Sheet1'].Columns[8].ColumnWidth:=9; XApp.WorkSheets['Sheet1'].Columns[9].ColumnWidth:=7; XApp.WorkSheets['Sheet1'].Columns[10].ColumnWidth:=6; XApp.WorkSheets['Sheet1'].Columns[11].ColumnWidth:=13; end;

ADOQuery1 Is a SQL Query that can connect to many kind of Data Base such as SQLServer,Oracle,Access,etc
2- as I explained you can export any Query Result to Excel sheet .
consider that your report is the result of a SQL Statement that wrote in a Query Object. and by above Code you can export it to Excel Sheet.
3-If you compile your code , delphi compiler make an exe file for your Project automaticly
I hope that my explanation be useful for you.