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
Top Related