Exportação para Excel

Delphi

15/04/2004

Pessoal,

Estou precisando exportar um relatório para o Excel. Estou usando quickreport. Fiz alguns testes com filtros para o Excel, mas este recurso não me atendeu muito bem, pois as bordas e as formatações não foram feitas. Gostaria de saber se existe algum componente que não só exporte os dados como também formate o relatório do jeito que está no quickreport para excel. Será que alguém pode me ajudar?

Um abraço para todos,

[color=#00ff00:cedc971b71][b:cedc971b71]Titulo Editado - Maiúsculas[/b:cedc971b71][/color:cedc971b71]


Chmeireles

Chmeireles

Curtidas 0

Respostas

Lucas Silva

Lucas Silva

15/04/2004

Isso é o exemplo mais simples. Ai você faz as modificações que precisar ai.
uses ComObj;
.
.
.
procedure TForm1.Button1Click(Sender: TObject);
var excel: variant;
begin

      excel := CreateOleObject(´Excel.Application´);
      excel.Workbooks.add(1);
      excel.Cells.Select;
      excel.Selection.NumberFormat := ´@´;


      excel.cells[1,1] := ´Teste´;
      excel.columns.AutoFit;
      excel.cells[1,1].Select;
      excel.visible := true;

end;


Quando tiver uma dúvida, utilize o sistema de busca (pesquisa) do fórum antes de postar...


GOSTEI 0
Chmeireles

Chmeireles

15/04/2004

Luis (ou qualquer outro que saibda),

Você me deu uma bela dia sobre como exportar dados para o Excel, só estou tendo uma dúvida. Como posso uma pasta com mais de uma planilha? Pois código que você me mandou cria uma pasta de trabalho só que uma planilha. Como posso criar uma pasta um número maior de planilhas?

Um abração,

[quote:020c9b0f73=´Lucas Alves Silva´]Isso é o exemplo mais simples. Ai você faz as modificações que precisar ai.
uses ComObj;
.
.
.
procedure TForm1.Button1Click(Sender: TObject);
var excel: variant;
begin

      excel := CreateOleObject(´Excel.Application´);
      excel.Workbooks.add(1);
      excel.Cells.Select;
      excel.Selection.NumberFormat := ´@´;


      excel.cells[1,1] := ´Teste´;
      excel.columns.AutoFit;
      excel.cells[1,1].Select;
      excel.visible := true;

end;


Quando tiver uma dúvida, utilize o sistema de busca (pesquisa) do fórum antes de postar...[/quote:020c9b0f73]


GOSTEI 0
Lucas Silva

Lucas Silva

15/04/2004

Não testei esse codigo, mais eu acho que dá certo.
uses ComObj;
.
.
.
procedure TForm1.Button1Click(Sender: TObject);
var excel: variant;
begin

      excel := CreateOleObject(´Excel.Application´);
      excel.Workbooks.add(1);
      excel.Sheets("Plan2").Select // isso vai para a segunda planilha.
      excel.Range("A1").Select
      excel.Cells.Select;
      excel.Selection.NumberFormat := ´@´;


      excel.cells[1,1] := ´Teste´;
      excel.columns.AutoFit;
      excel.cells[1,1].Select;
      excel.visible := true;

end;



GOSTEI 0
POSTAR