Ergebnis der Suchanfrage

• Forum: Programmieren allgemein

  AW: Export nach Excel

   
    by Bummi, 30. Aug 2012
  mit den Routinen aus #17 für den Weg über die Zwischenablage hatte ich mit folgendem Code bisher keinen Ärger (gegf. müsste #9 ausgesiebt werden)
  
  Function GetAds4Excel(ads:TAdoDataset):String;
  var
  sl:TStringList;
  s:String;
  i:Integer;
  Procedure ClipIt;
  begin
  s := Copy(s,1,length(s) - 1);
• Forum: Programmieren allgemein

  AW: Export nach Excel

   
    by Bummi, 30. Aug 2012
  Nein, Du kannst das ganze in einer Stringlist aufbauen, den Text in die Zwischenablage legen und per OLE einfügen.
  
  
  clipboard.Settextbuf(Pchar(sl.Text));
  FWorkBook.ActiveSheet.Paste;
  FWorkBook.ActiveSheet.Columns.EntireColumn.AutoFit;
  
  // folgendes wenn Du die Header mit ausgibst
  FExcel.Rows.Item.Select;
  FExcel.Selection.Interior.Color := Color;