Fórum Exportar para Excel com Delphi #324634

03/07/2006

0

Delphi

Ola pessoal, estou com um probleminha e preciso de uma ajuda. Preciso gerar dados em uma planilha em Excel ja existente, mas só tenho encontrado codigos ou componentes que para funcionar é preciso o Office estar instalado na maquina. Gostaria de saber se algum de vcs tem um codigo ou componente que gere dados de tabela em excel sem precisar que o Office esteja instalado na maquina.

Fico no aguardo!!!

Obrigado!!!

Luciano Henrique.


Lhsantos

Lhsantos

Responder

Posts

03/07/2006

Adriano Santos

Cara, nunca testei sem o office, mas dá uma olhada neste [url=https://www.devmedia.com.br/visualizacomponente.aspx?comp=1298&site=3]artigo[/url] que escrevi.


Responder

Gostei + 0

04/07/2006

Host

Tu ainda ta interessado?


Responder

Gostei + 0

05/07/2006

Leitorbinario

Conheço um componente que gera arquivos Excel sem ele tá instalado, mas não sei se ele adiciona em um existente.


Responder

Gostei + 0

17/10/2006

Tiagorocha

http://forum.clubedelphi.net/viewtopic.php?t=75874&highlight=exportar+excel

Só preciso descobrir como fazer isso no Excel XP... :P


Responder

Gostei + 0

18/10/2006

Alansvieceli

cara..uma maneira simples, rapida e funciona..é meia nanual

faz o seguinte..salva tudo dentro de um string list com formato HTML
dai da um savetofile com o nome de ARQ.XLS

feito..formatadinho e muito rapido..

wslAux := TStringList.Create


wslAux.add(´<html>´);
wslAux.add(´<body>´);
wslAux.add(´<table width="100¬" border="1" cellspacing="0"´);
wslAux.add(´cellpadding="0">´);
wslAux.add(´  <tr>´);
wslAux.add(´    <td width="33¬">Dado 1</td>´);
wslAux.add(´    <td width="33¬">Dado 1</td>´);
wslAux.add(´    <td>Dado 1</td>´);
wslAux.add(´  </tr>´);
wslAux.add(´  <tr>´);
wslAux.add(´    <td>Dado 1</td>´);
wslAux.add(´    <td>Dado 1</td>´);
wslAux.add(´    <td>Dado 1</td>´);
wslAux.add(´  </tr>´);
wslAux.add(´  <tr>´);
wslAux.add(´    <td>Dado 1</td>´);
wslAux.add(´    <td>Dado 1</td>´);
wslAux.add(´    <td>Dado 1</td>´);
wslAux.add(´  </tr>´);
wslAux.add(´</table>´);
wslAux.add(´</body>´);
wslAux.add(´</html>´);
wslAux.SaveToFile(´ARQ.XLS´);
wslAux.Free;


tenta ai...funciona


Responder

Gostei + 0

18/10/2006

Tiagorocha

Erm, desculpem a vaza, os exemplos não funcionavam para mim pq eu não tinha declarado a unit ComObj no Uses... :P
De qualquer maneira, valeu pela idéia, talvez eu ainda precise dela, visto que nos exemplos fornecidos, o Delphi abre o Excel, mas não fecha.


Responder

Gostei + 0

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

Aceitar