Fórum Exportação para Excel #226178
15/04/2004
0
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
Curtir tópico
+ 0Posts
15/04/2004
Lucas Silva
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
27/04/2004
Chmeireles
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
27/04/2004
Lucas Silva
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
Clique aqui para fazer login e interagir na Comunidade :)