//Функция Excel для проверки подлинности
PROcedure Excel_copyCells;
вар
лист, XLApp, рабочая книга, myRange1, myRange2: вариант;
начинать
пытаться
//创建对象
XLApp:=createOleObject('Excel.application');
XLApp.displayAlerts:=true;
XLApp.ScreenUpdating:=true;
XLApp.visible:=true;
XLApp.WorkBooks.Add('D:/Test.xls');
рабочая книга:= XLApp.workbooks[1];
лист:=workbook.worksheets[1];
myRange1:=sheet.Range[sheet.cells[39,1],sheet.cells[79,16]];
myRange2:=sheet.Range[sheet.cells[80,1],sheet.cells[120,16]];
мойДиапазон1.Копия(мойДиапазон2) ;
окончательно
если не VarIsEmpty(XLApp), то начните
XLApp.displayAlerts:=false;
XLApp.ScreenUpdating:=true;
XLApp.выйти;
конец;
конец;
конец;