Importar dados de uma planilha do excel

um simples código : 

Código:

procedure TForm1.Button1Click(Sender: TObject); var   planilha, sheet: OleVariant;   linha, coluna: Integer; begin      //Crio o objeto que gerencia o arquivo excel      planilha:= CreateOleObject('Excel.Application');            //Abro o arquivo      planilha.WorkBooks.open('c:\nome_da_planilha.xls'); 

     //Pego a primeira planilha do arquivo      sheet:= planilha.WorkSheets[1];      

         //Aqui pego o texto de uma das células      linha:= 0;      coluna:= 0;      ShowMessage(sheet.cells[linha, coluna].Text);                     //Fecho a planilha         planilha.WorkBooks.Close;   end; end;

ai soh muda umas coisas e ja era !

Importar Planilha Excel para Delphi

Já precisei da mesma ajuda e guardei a resposta de alguem que nao lembro quem postou, mas usei em uma aplicaçao e funcionou perfeitamente.

++++

Salve sua planilha excel formato CSV (salvar como >CSV).Nome ARQ para o exemplo.Linhas e colunas sem cabeçalho. Na uses de seu formulário declare COMOBJ. 

Em um botão coloque: procedure TForm4.BitBtn5Click(Sender: TObject); var Arq : TextFile; texto : string; I : Integer; function MV : String; var Monta : String; begin monta := ´´; inc(I); While Texto[I] > ´*´ do 

begin If Texto[I]= ´;´ then break; monta := monta + Texto[I]; inc(I); end; result := monta; end; 

begin if OpenDialog1.Execute then begin Screen.Cursor := crHourGlass; datamodule3.table5.Open;//a tabela onde quero por os dados excel AssignFile(Arq,OpenDialog1.FileName); Reset(Arq); if not EOF(Arq) then repeat ReadLn(Arq,Texto); 

With datamodule3.table5 do begin Insert; I := 0; FieldByName(´Nº´).AsFloat:=StrToFloat(MV);// Nº é meu campo FieldByName(´Operação´).AsString := MV;//operação outro campo FieldByName(´Tempo´).AsFloat:=StrToFloat(MV);//Tempo outro campo Post; end; until EOF(Arq);// ate o fim arquivo CSV Closefile(Arq);//fecha arquivo CSV Screen.Cursor := crDefault; end; end; 

+++++Espero ter ajudado.

Importar para o banco de dados atraves do excel

Código

VOCE PODERA IMPORTAR DADOS DO EXCEL PARA SEU BANCO DE DADOS.SUPONHA QUE VC RECEBA UM EXTRATO BANCÁRIO EM TEXTO PELA INTERNET. TRABALHE O EXTRATO E CONVERTA PARA ARQUIVO EXCEL.AGORA VOCE QUER TRANSFERIR OS DADOS DO EXCEL PARA O BANCO DE DADOS DE SEU PROGRAMA.O PRIMEIRO PASSO PARA NÃO TER PROBLEMA DE CONFLITO COM SEU BANCO DE DADOS É O EXCEL ESTAR PARAMETRADO COM A TABELA DE SEU BANCO DE DADOS. PARA TANTO ABRA SUA TABELA ONDE VC VAI IMPORTAR OS DADOS NO EXCEL USANDO ABRIR ARQUIVOS DBASENO EXCEL. OBS. SUA TABELA DEVERÁ ESTAR COM A EXTENSÃO dbf.(DBASE).

NA PASTA DO EXCEL ONDE VC TRABALHOU OS DADOS DE TEXTO COPIE E COLE NAS RESPECTIVAS COLUNAS DO BANCO DE DADOS QUE VOCE ABRIU NO EXCEL(extensão dbf).FEITO ISSO SALVE O ARQUIVO NO EXCEL EM DBASE.AGORA NO FORMULARIO DO PROGRAMA CRIAMOS UM BUTTON PARA FAZER A EXPORTAÇÃO, COM O SEGUINTE COMANDO.procedure TFORMINSERIR.BitBtn1Click(Sender: TObject);begin     TRY     WITH ATUALIZAR DO     BEGIN          CLOSE;          sql.Clear;          sql.Add('INSERT INTO "C:conciBANCOtabela.dbf"');          sql.Add('SELECT *');          sql.Add(' FROM "transr.dbf"');          Prepare;          ExecSQL;     END     FINALLY     Application.MessageBox('IMPORTAÇÃO CONCLUIDA COM SUCESSO!', 'MENSAGEM', MB_ICONINFORMATION);   END;SE VOCE EXECUTOU OS PASSOS CORRETAMENTE SEUS DADOS DO EXCEL ESTARÃO EM SUA TABELA DO BANCO DE DADOS.ESTANDO NA EXTENSÃO .dbf VOCE PODERA USAR O MESMO MÉTODO, ATRAVÉS DE SQL PARAR TRANSFORMAR EM OUTRAS  EXTENSÕES