Exemplo Delphi_Excel: copiar e colar célula

//Excel的单元格拷贝粘贴

Procedimento Excel_copyCells;

var

planilha, XLApp, pasta de trabalho, myRange1, myRange2: variante;

começar

tentar

//创建对象

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

XLApp.displayAlerts:=true;

XLApp.ScreenUpdating:=true;

XLApp.visible:=true;

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

pasta de trabalho := XLApp.workbooks[1];

planilha:=pasta de trabalho.planilhas[1];

meuRange1:=folha.Range[folha.células[39,1],folha.células[79,16]];

meuRange2:=folha.Range[folha.células[80,1],folha.células[120,16]];

meuRange1.Copy(meuRange2);

finalmente

se não for VarIsEmpty(XLApp), então comece

XLApp.displayAlerts:=falso;

XLApp.ScreenUpdating:=true;

XLApp.quit;

fim;

fim;

fim;