# URGENTE De table para Excel

Delphi

04/08/2003

Gostaria de exportar os dados de um table para o excel, já vi um exemplo mas não consegui fazer funcionar, alguém possui algum componente que auxilie ou como funciona os componentes do excel no delphi 6, por favor me ajudem, meu emprego depende disso.


Impactus

Impactus

Curtidas 0

Respostas

Mmtoor

Mmtoor

04/08/2003

VAI SER FÁCIL DE ENTENDER.

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComObj, StdCtrls, Buttons, Grids, DBGrids, DB, DBTables;

type

procedure GerarExcelT(Consulta:TQuery);

private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

procedure TFrm_Prescricao.GerarExcelT(Consulta: TQuery);
var
coluna, linha: integer;
excel: variant;
valor: string;

begin
try
excel:=CreateOleObject(´Excel.Application´);
excel.Workbooks.add(1);
except Application.MessageBox (´Versão do Ms-Excel´+
´Incompatível´,´Erro´,MB_OK+MB_ICONEXCLAMATION);
end;

Consulta.First;
try
for linha:=0 to query1.RecordCount-1 do
begin
for coluna:=1 to query1.FieldCount do
begin
valor:= query1.Fields[coluna-1].AsString; excel.cells [linha+2,coluna]:=valor;
end;
Consulta.Next;
end;
for coluna:=1 to query1.FieldCount do
begin
valor:= query1.Fields[coluna-1].DisplayLabel;
excel.cells[1,coluna]:=valor;
end;
excel.columns.AutoFit;
excel.visible:=true;
except
Application.MessageBox (´Aconteceu um erro desconhecido durante a conversão´+
´da tabela para o Ms-Excel´,´Erro´,MB_OK+MB_ICONEXCLAMATION);
end;
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
GerarExcelT(query1);
end;

whiteband@ig.com.br


GOSTEI 0
POSTAR