Excel paste mutiple cellls from clipboard

[Chemiker]

Hallo,

Bonusfrage: Das kann man machen, sollte man aber nicht. Wenn Excel über ein Programm gesteuert wird, sollte ausschließlich die Steuerung beim Programm liegen, ohne das der Benutzer manuell eingreifen kann.

Delphi-Quellcode:

var
  DateiName: TFileName;
  oEXCEL: OLEVariant;
begin
  try
    oEXCEL := CreateOleObject('Excel.Application');
  except
    ShowMessage('Excel ist nicht geöffnet !');
    Exit;
  end;
  oEXCEL.Workbooks.add;
  oEXCEL.Visible:= TRUE;
  // Die Daten werden ab der Zelle B1 eingefügt
  oEXCEL.range['B1','B1'].Select;
  // Daten aus der Zwischenablage nach Excel importieren
  oEXCEL.ActiveSheet.Paste;
  // Neuer Dateiname; gegebenfalls sind Schreibrechte zu beachten
  DateiName:='C:\Users\Internet\Documents\KopieTest.xlsx';
  // Datei abspeichern
  oEXCEL.ActiveWorkbook.SaveAs(Filename:=DateiName);

  if  NOT VarIsEmpty(oEXCEL) then
  begin
    oEXCEL.ActiveWorkBook.Saved:= TRUE;
    oEXCEL.Quit;
    oEXCEL:= Unassigned;
  end;

Mit diesem Code kann man die Zwischenablage nach Excel importieren.

Bis bald Chemiker

[Detlev]

Vielen lieben Dank! Das hat großartig funktioniert!

Klasse!

[himitsu]

Es gibt auch fertige Komponenten, die schön nach Excel exportieren.

DevExpress-Grids: direkt in eine Daen, ohne das Excel installiert sein muß (wenn ich mich nicht irre)
FastReports: aber da muß xcel installiert sein

OK, Delphi bringt auch alles mit. (nur den CSV-Import muß man nicht kopieren ... SplitString bzw. siehe StringHelper )
https://learndelphi.org/de/what-you-...l-from-delphi/