Exportando dados excel para access!!!

Question

Gostaria de saber se h� a possibilidade de exportar os dados do excel para o access !!! pois recebo os arquivos em excel e toda vez tenho que passar para o access manualmente. H� alguma possiblidade de se fazer isso mais r�pido!!

Lucas Silva · Answer

Voc� pode pegar os dados do excel com este c�digo..

Uses ComObj 

procedure TForm1.Button1Click(Sender: TObject); 
var 
   Excel : Variant; 
   Coluna:Integer; 
   P:string; 
   txt: textfile; 
begin 
   try 
   AssignFile(txt, �c:\Arquivo.txt�); 
   if not FileExists(�c:\Arquivo.txt�) then 
      Rewrite(txt,�c:\Arquivo.txt�); 
   Append(txt); 
   Excel := CreateOleObject(�Excel.Application�); 
   Excel.WorkBooks.Open(�C:\Pasta1.xls�); 
   Coluna:=1; 
   P:=Excel.WorkBooks[1].Sheets[1].Cells[1,Coluna]; 
   while ( P <> ��) do 
      begin 
      WriteLn(txt, Excel.WorkBooks[1].Sheets[1].Cells[1,Coluna]); 
      Coluna:=Coluna+1; 
      P:=Excel.WorkBooks[1].Sheets[1].Cells[1,Coluna]; 
      end 
   finally 
   Excel.WorkBooks.Close; 
   CloseFile(txt); 
  end; 
end;

Depois � s� voc� ir quebrando este arquivo txt, e com uma query voc� salva os dados no access...

F�rum Exportando dados excel para access!!! #236907