Exporte table ver excel

Soyez le premier à donner votre avis sur cette source.

Vue 13 446 fois - Téléchargée 4 428 fois

Description

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.

Codes Sources

A voir également

Ajouter un commentaire Commentaire
Messages postés
2
Date d'inscription
lundi 11 mars 2013
Statut
Membre
Dernière intervention
12 septembre 2013

bon code...Toutefois je ne vois pas comment faire apparaitre les (Table1LAST_NAME: TStringField;
Table1FIRST_NAME: TStringField;
Table1ACCT_NBR: TFloatField;) de votre exemple dans le type.Merci

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.