OBRIGADO!
----- Original Message -----
From: Claudio H.Binaghi
To: delphi-br@yahoogrupos.com.br
Sent: Friday, August 19, 2005 10:47 AM
Subject: Re: [delphi-br] Duvida Excel
Alexandre,
Segue abaixo a rotina que faz isso sem o componente excel.aplication:
procedure TForm1.Button1Click(Sender: TObject);
Var Meu_excel: Variant;
Path,
NOME: String;
I: Integer;
begin
Path := ExtractFilePath(Application.ExeName)+'Pasta1.xls';
Meu_excel := CreateOleObject('Excel.Application');
Meu_excel.Visible := True;
Meu_excel.Workbooks.Open(Path);
ListBox1.Items.Clear;
For I:= 1 to Meu_excel.Workbooks[1].sheets.Count do
Begin
NOME:= MEU_Excel.WorkBooks[1].Sheets[I].Name;
ListBox1.Items.Add(Nome);
End;
end;
Na dúvida vou enviar este exemplo em PVT,
Qualquer coisa pergunte.
Boa sorte!
Claudio H.Binaghi
[EMAIL PROTECTED]
Al. Ribeirão Preto, 266
Fone: (11) 3288-4840
---- Original Message -----
From: "Alexandre - Yahoo" <[EMAIL PROTECTED]>
To: <delphi-br@yahoogrupos.com.br>
Sent: Friday, August 19, 2005 10:33 AM
Subject: [delphi-br] Duvida Excel
Alguem sabe como faço para listar todas as planilhas de um arquivo excel
usando a variante excel.aplication?
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
--
No virus found in this incoming message.
Checked by AVG Anti-Virus.
Version: 7.0.338 / Virus Database: 267.10.12/77 - Release Date: 18/08/2005
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
------------------------------------------------------------------------------
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço
do Yahoo!.
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
