Fórum Valor linha do Excel #232011

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;