Exportar para Excel com Delphi

Delphi

03/07/2006

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

Curtidas 0

Respostas

Adriano Santos

Adriano Santos

03/07/2006

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.


GOSTEI 0
Host

Host

03/07/2006

Tu ainda ta interessado?


GOSTEI 0
Leitorbinario

Leitorbinario

03/07/2006

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


GOSTEI 0
Tiagorocha

Tiagorocha

03/07/2006

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

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


GOSTEI 0
Alansvieceli

Alansvieceli

03/07/2006

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


GOSTEI 0
Tiagorocha

Tiagorocha

03/07/2006

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.


GOSTEI 0
POSTAR