OPA...
AGRADEÇO A TODOS RÁPIDO A RESPOSTA E BEM OBJETIVA, VALEU MESMO.
ABRAÇO A TODOS....
--- Em delphi-br@yahoogrupos.com.br, "ajmsombra" <[EMAIL PROTECTED]>
escreveu
>
> --- Em delphi-br@yahoogrupos.com.br, Márcio Ferraz <marciomrck@>
> escreveu
> >
> > Olá pessoal do grupo.
> > Gostaria de uma ajudinha, preciso resgatar dados de uma planilha
de
> > excel para o delphi e manipulá-la, tenho como exportar para o
> delphi
> > mais não sei como importar.
> > Desde já grato.
> > Márcio
> >
>
>
> procedure TForm1.Button1Click(Sender: TObject);
> var
> Excel : Variant;
> i:Integer;
> analise,texto:string;
> begin
> i:=4;
> Excel := CreateOleObject('Excel.Application');
> Excel.Visible :=True;
> {Excel.Workbooks.Add;}
> Excel.WorkBooks.Open(Edit1.text+'nome da planilha.xls');
> texto:=Excel.WorkBooks[1].Sheets[1].Cells[i,3];
> while texto <> '' do
> begin
> analise:=Excel.WorkBooks[1].Sheets[1].Cells[i,13];
> if analise <> 'Reprovado' then
> begin
> I:=I+1;
> texto:=Excel.WorkBooks[1].Sheets[1].Cells[i,3];
> end
> else
> begin
> texto:=Excel.WorkBooks[1].Sheets[1].Cells[i,3];
> table1.Insert;
> table1Cmpo1.Value:=Excel.WorkBooks[1].Sheets[1].Cells[i,1];
> table1.Post;
> i:=i+1
> end;
> end;
> Excel.WorkBooks.close;
>
> end;
>
