Ejemplo de Delphi_Excel: copiar y pegar celda

//Excel 的单元格拷贝粘贴

Procedimiento Excel_copyCells;

var

hoja,XLApp,libro de trabajo,myRange1,myRange2: variante;

comenzar

intentar

//创建对象

XLApp:=createOleObject('Excel.aplicación');

XLApp.displayAlerts:=verdadero;

XLApp.ScreenUpdating:=verdadero;

XLApp.visible:=verdadero;

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

libro de trabajo := XLApp.workbooks[1];

hoja:=libro de trabajo.hojas de trabajo[1];

miRango1:=hoja.Rango[hoja.celdas[39,1],hoja.celdas[79,16]];

miRango2:=hoja.Rango[hoja.celdas[80,1],hoja.celdas[120,16]];

miRango1.Copy(miRango2);

finalmente

si no es VarIsEmpty(XLApp), entonces comience

XLApp.displayAlerts:=falso;

XLApp.ScreenUpdating:=verdadero;

XLApp.salir;

fin;

fin;

fin;