exporte votre table ver excel en utilise une table et un composent ExcelApplication1 bonnnnnnnnnnnnnnnnnnnne chance .
Source / Exemple :
unit Unit1;
interface
uses
Windows, Messages, Classes, SysUtils, Graphics, Controls, StdCtrls, Forms,
Dialogs, DBCtrls, DB, DBGrids, DBTables, Grids, ExtCtrls, OleServer,
Excel97;
type
TForm2 = class(TForm)
DBGrid1: TDBGrid;
DBNavigator: TDBNavigator;
Panel1: TPanel;
DataSource1: TDataSource;
Panel2: TPanel;
Table1: TTable;
ExcelApplication1: TExcelApplication;
Button1: TButton;
Table1LAST_NAME: TStringField;
Table1FIRST_NAME: TStringField;
Table1ACCT_NBR: TFloatField;
Table1ADDRESS_1: TStringField;
Table1CITY: TStringField;
Table1STATE: TStringField;
Table1ZIP: TStringField;
Table1TELEPHONE: TStringField;
Table1DATE_OPEN: TDateField;
Table1SS_NUMBER: TFloatField;
Table1PICTURE: TStringField;
Table1BIRTH_DATE: TDateField;
Table1RISK_LEVEL: TStringField;
Table1OCCUPATION: TStringField;
Table1OBJECTIVES: TStringField;
Table1INTERESTS: TStringField;
Table1IMAGE: TBlobField;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ déclarations privées }
public
{ déclarations publiques }
end;
var
Form2: TForm2;
implementation
{$R *.DFM}
procedure TForm2.FormCreate(Sender: TObject);
begin
Table1.DatabaseName := ExtractFilePath(Application.EXEName);
Table1.TableName := 'clients.dbf';
Table1.Active := True;
end;
procedure TForm2.Button1Click(Sender: TObject);
var
MonClasseur : _workbook;
MaFeuille :_Worksheet;
begin
MonClasseur:=ExcelApplication1.Workbooks.Add(xlWBATWorksheet,0);
MaFeuille:=MonClasseur.Worksheets['feuil1'] as _worksheet;
table1.first;
while not (table1.eof) do
begin
MaFeuille.Cells.Item[table1.RecNo,1].Value:=Table1LAST_NAME.text;
MaFeuille.Cells.Item[table1.RecNo,2].Value:=Table1FIRST_NAME.text;
table1.next;
end;
ExcelApplication1.Visible[0]:=true;
end;
end.
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.