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