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