Fórum Exportar Para Excel #187471

procedure TForm1.BitBtn1Click(Sender: TObject);
var RangeE: Excel2000.range; // Excel97 qdo for o caso - Não é flexive;
I, Linha: Integer;
    Faixa: String;
begin
EA.Visible[0] := true;
  EA.Workbooks.Add(Null,0);
  RangeE:= EA.ActiveCell;
  // Montar a primeira linha com o nome das colunas da query.
  for i := 0 to Query1.FieldCount-1 do
  begin
  RangeE.Value:= Query1.Fields[I].DisplayName;
    RangeE:= RangeE.Next;
  end;

  Query1.DisableControls;

  Query1.First;
  Linha:= 2;
  while not Query1.Eof do
  begin
  RangeE:= EA.Range [´A´ + IntToStr(Linha), ´A´ + IntToStr(Linha)];
    For I := 0 to Query1.FieldCount-1 do
    begin

    if I <= 26 then
      begin
      // A .. Z
      Faixa:= Chr( 64 + I );
      end else
      begin
      // A .. Z [AA .. AZ]
      Faixa:= ´A´ + Chr( 64 + (I-25) );
      end;

  RangeE.Value:= Query1.Fields[I].Value;
    RangeE:= RangeE.Next;
    end;
  Query1.Next;
    Inc(Linha);
  end;

  Query1.EnableControls;
EA.Visible[0] := true;
  RangeE:= EA.Range[´A1´,Faixa + IntToStr(Linha-1) ];

  //Chr(65 + (Query1.FieldCount-1)) + IntToStr(Linha-1)]

  RangeE.AutoFormat(8,Null,Null,Null,Null,Null,Null);
  Application.Terminate;
end;