Contoh Delphi_Excel: salin dan tempel sel

//Excel的单元格拷贝粘贴

Prosedur Excel_copyCells;

var

sheet,XLApp,buku kerja,myRange1 ,myRange2: varian;

mulai

mencoba

//创建对象

XLApp:=createOleObject('Excel.aplikasi');

XLApp.displayAlerts:=benar;

XLApp.Pembaruan Layar:=true;

XLApp.terlihat:=benar;

XLApp.WorkBooks.Add('D:/Test.xls');

buku kerja := XLApp.buku kerja[1];

lembar:=buku kerja.lembar kerja[1];

myRange1:=sheet.Range[sheet.cells[39,1],sheet.cells[79,16]];

myRange2:=sheet.Range[sheet.cells[80,1],sheet.cells[120,16]];

myRange1.Copy(myRange2) ;

Akhirnya

jika bukan VarIsEmpty(XLApp) maka mulailah

XLApp.displayAlerts:=salah;

XLApp.Pembaruan Layar:=true;

XLApp.keluar;

akhir;

akhir;

akhir;