Olá pessoal.
configurei com a planilha em excel via ado, só que na hora de fazer a
coneção ele dá uma mensagem que a tabela externa não está no formato
esperado.
Estou usando Excel 2003 + delphi 7.
Alguem pode me ajudar nesta batalha estou precisando resgatar de uma
planilha inscritos de um vestibular da facu que trabalho e presciso,
mais até agora não consegui fazer esta conecção, sei como exportar
dados mais não vejo meios de importar para o delphi, conseguindo isto
irei armazenar em Firebird.
Grato
Márcio
--- Em delphi-br@yahoogrupos.com.br, Márcio Ferraz <[EMAIL PROTECTED]>
escreveu
>
> 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" <ajmsombra@>
> 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;
> >
>
