Fórum Exportação para Excel #226178

15/04/2004

0

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

Responder

Posts

15/04/2004

Lucas 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...


Responder

Gostei + 0

27/04/2004

Chmeireles

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]


Responder

Gostei + 0

27/04/2004

Lucas Silva

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;



Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar