Importar Planilha Excel, sem Abrir o Excel

Question

Caros colegas..Tem como importar dados de uma planilha sem precisar de abrir o aplicativo Excel, gerar essa importa��o via arquivo, ou mesmo gerar um txt sem abrir a planilha????agrade�o antecipadamen...

Lucas Silva · Answer

Uma pesquisada no f�rum antes de postar alguma d�vida � bem interessante..

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;

Cabelo · Answer

Caro Colega..Eu procurei bastante, achei 417 itens para este t�pico, e tentei usar v�rias rotinas, inclusive esta que vc me passou, mas infelizmente n�o consegui fazer funcionar aqui..Se estou certo, ele iria importar a planilha Pata1.xls, para um arquivo arquivo.txt, certo??Mas n�o consegui fazer funcionar..agrade�o sua aten��o..Cabelo...

Lucas Silva · Answer

[quote:c549ade6ad=�cabelo_uni�]Mas n�o consegui fazer funcionar..[/quote:c549ade6ad]Aqui, funciona perfeitamente,Qual o erro que deu ai?...

Cabelo · Answer

Caro Colega..J� tentei um bocado de coisas, mas n�o consegui nada..simplesmente n�o consigo escrever no arquivo .txt, mesmo usando o seu exemplo, da mesma forma, igualzinho ao que vc escreveu, n�o est� funcionando..n�o d� nenhum erro, simplesmente o arquivo.txt est� sempre em branco..agrade�o sua aten��o..sem maiscabelo...

Hdionizio · Answer

Ai meu amigo tenta usar esse codigo pra escrever em txt � bem simpresinho mas funciona

Var
Codigo,Nome:String;
F: TextFile;
begin
AssignFile(F,�Clientes.txt�);
Rewrite(F);
Table1.First;
While not Table1.Eof do
begin
Codigo := Table1.FieldByName(�Codigo�).Value;
Codigo[5]:=�;�;
Nome := Table1.FieldByname(�Nome�).Value;
Nome[8]:=�*�;
Writeln(F,Codigo + �;�+Nome);
Table1.Next;
end;
CloseFile(F);

F�rum Importar Planilha Excel, sem Abrir o Excel #235940