Olá Marcio!
Eu utilizo com o Excel 2003 sem problemas. Pode ser que vc não tenha
especificado algum parametro. teste este exemplo:
1) Rotina para abrir o arquivo e jogar as planilhas para uma ListBox:
OpenDialog1.Execute;
strConn:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+
OpenDialog1.FileName+';Extended Properties=Excel 8.0;Persist Security
Info=False';
AdoConnection1.Connected:=False;
AdoConnection1.ConnectionString:=strConn;
AdoConnection1.Open;
AdoConnection1.GetTableNames(ListBox1.Items,True);
2) Rotina para visualizar os dados da planilha selecionada
if not AdoConnection1.Connected then
ShowMessage('Primeiro abra uma planilha !')
else
if ListBox1.ItemIndex < 0 then
ShowMessage('Selecione a planilha de onde os dados serão
importados.');
AdoQuery1.Close;
AdoQuery1.SQL.Text:='SELECT * FROM ['+ListBox1.Items.Strings
[ListBox1.ItemIndex]+']';
AdoQuery1.Open;
BtnImportar.Enabled := true;
Se vc visualizar os dados, trabalhar com eles é tranquilo:
ADOQuery1.First;
While Not ADOQuery1.Eof do
begin
Insere.ParamByName('data').Value := ADOQuery1.Fields[0].Value;
Insere.ParamByName('associado').Value := ADOQuery1.Fields
[1].Value;
ADOQuery1.Next;
end;
--- Em delphi-br@yahoogrupos.com.br, Márcio Ferraz <[EMAIL PROTECTED]>
escreveu
>
> 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 <marciomrck@>
> 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;
> > >
> >
>
