ActiveDelphi

[dietmar]

Boa tarde pessoal

Preciso abrir e ler um arquivo excel, apenas para leitura, e gerar etiquetas.
Qual a melhor forma de abrir e ler um arquivo excel?


Grato pela ajuda.

[Borland_Linuxer]

[b] dietmar [/b] ola amigo vc pode usar ADO para se conectar a sua planulha e ai vc pode fazer o que vc precisar...

pode monstrar os dados em um dbgird coloca dbnavigator e ate gerar um relatorio usando um adodataset e datasource..

adoconnection + adodataset + datasorce

no [b]adoconnetcion[/b] va em connection string + Builder + em Provider (provedor)
escolha Microsoft Jet 4.0 Ole db provider + Avançar na prossima tela escolha
O local onde se encontrar sua planilha exe: c:\\clientes.xls

Loginprompt = False
active = true.

inserir um ADODataSet1

propriedades : connection = ADOConnection1

e em commandtext escolha a plan que vc vai utilizar para ver dados..
active = true pronto

colque um datasource ligue ele do ADODataSet1.

coloque um dbgrid e ligue ele ao datasource..

qualquer coisa posta ai....

flw ai....
_________________
Abraços

Sérgio Guedes
www.lsisistemas.com.br
www.scvarejo.com.br - Projetos para parceiros e desenvolvedores

[dietmar]

Eu utilizo o OpenDialog para selecionar o arquivo, ou seja, posso ter diversos arquivos, embora com o mesmo lay-out. Qual propriedade altero para esse nome de arquivo?

[Borland_Linuxer]

amigao explica melhor o que vc quer fazer blz amigo... nao entendie bem..

flw ai..
_________________
Abraços

Sérgio Guedes
www.lsisistemas.com.br
www.scvarejo.com.br - Projetos para parceiros e desenvolvedores

[dietmar]

Recebo semanalmente arquivos excel com o nome e dados dos aniversariantes. Preciso ler estes arquivos para a geracao das etiquetas para envio de cartao de felicitacao, imprimindo estas etiquetas com dois codigos de barras distintos: o CEP (para o correio) e o proprio codigo do cliente (para controle interno). Este e\' o processo.

[Morto]

[quote]
adoconnection + adodataset + datasorce

no [b]adoconnetcion[/b] va em connection string + Builder + em Provider (provedor)
escolha Microsoft Jet 4.0 Ole db provider + Avançar na prossima tela escolha
O local onde se encontrar sua planilha exe: c:\\clientes.xls

Loginprompt = False
active = true.

inserir um ADODataSet1

propriedades : connection = ADOConnection1

e em commandtext escolha a plan que vc vai utilizar para ver dados..
active = true pronto

colque um datasource ligue ele do ADODataSet1.

coloque um dbgrid e ligue ele ao datasource..

qualquer coisa posta ai....

flw ai.... [/quote]



Borland_Linuxer, tentei acessar um arquivo XLS da maneira q vc falou, mas deu problema....Disse que não é um formato reconhecido. O q eu estou fazendo de errado???????

Abraços

André(Morto)
_________________
André Rodrigues

[beto_cor]

Estou postando essa pequena solução para quem quiser tirar dados de uma planilha e colocar em um stringgrid, e depois fazer o quiser com esses dados, espero poder ajudar.

Foi usado um objeto opendialog e um stringgrid

var
Excel : Variant;
Linha,CN:Integer;
arq : TFileName;
begin
Excel := CreateOleObject('Excel.Application');
Excel.Visible := false;
OpenDialog1.Execute ;
arq:=OpenDialog1.FileName;
Excel.WorkBooks.Open(arq);
Linha:=3;
StringGrid1.RowCount := 1;
StringGrid1.ColCount := 4;
StringGrid1.Cells[1,0] := 'BOLETO';
StringGrid1.Cells[2,0] := 'VALOR';
CN := 1 ;
While Linha < 1000 Do
begin

StringGrid1.RowCount := CN;
StringGrid1.Cells[0,CN] := IntToStr(CN) ;
StringGrid1.Cells[1,CN] := Excel.WorkBooks[1].Sheets[1].Cells[LINHA,1] ;
StringGrid1.Cells[2,CN] := Excel.WorkBooks[1].Sheets[1].Cells[LINHA,3] ;

IF Length(StringGrid1.Cells[1,CN]) = 0 THEN
begin
Excel.quit ;
EXIT ;
end ;
CN := CN + 1 ;
linha := linha + 2 ;

end ;

[Raydem]

Comigo apareceu a mensagem: Formato da tabela inválido...