Галактика в вопросах и ответах

Код: Выделить всё

...
.{while i<n
.begin
   xlCreateNewExcelWithTemplate(shabl,true);
   xlSetActiveWorkBook(i);
end.
...
.begin
   i:=i+1;
   xlKillExcel;
end.
.}
.endform

Код: Выделить всё

  nf_xlsPers:=str_path+'persons_'+datetostr(cur_date(),'DD-MM-YYYY')+'.xlsx';
  nf_xlsTypesVS:=str_path+'TypesVS_'+datetostr(cur_date(),'DD-MM-YYYY')+'.xlsx';
  nf_xlsDocs:=str_path+'Docs_'+datetostr(cur_date(),'DD-MM-YYYY')+'.xlsx';

  xlCreateExcelWithTemplate(nf_xlsPers,true);
  xlSetActiveWorkBook(1);
  xlSetCellStringValue('Таб.№',1,1,1,1);
  xlSetCellStringValue('ФИО',1,2,1,2);
  xlSetCellStringValue('Дата рожд.',1,3,1,3);
  xlSetCellStringValue('Дата приказа о приеме на работу',1,4,1,4);
  xlSetCellStringValue('№ приказа о приеме на работу',1,5,1,5);
  xlSetCellStringValue('Должность по ШР',1,6,1,6);
  xlSetCellStringValue('№ приказа о назначении на должность',1,7,1,7);
  xlSetCellStringValue('Дата приказа о назначении на должность',1,8,1,8);
  xlSetCellStringValue('Подразделение по ШР',1,9,1,9);
  xlSetCellStringValue('№ диплома о высшем образовании',1,10,1,10);
  xlSetCellStringValue('Дата выдачи диплома',1,11,1,11);
  xlSetCellStringValue('Наименование ВУЗа',1,12,1,12);

  xlCreateExcelWithTemplate(nf_xlsTypesVS,true);
  xlSetActiveWorkBook(2);
  xlSetCellStringValue('Таб.№',1,1,1,1);
  xlSetCellStringValue('Тип ВС',1,2,1,2);
  xlSetCellStringValue('№ свидетельства',1,3,1,3);
  xlSetCellStringValue('Дата выдачи',1,4,1,4);
  xlSetCellStringValue('Учебное заведение',1,5,1,5);

  xlCreateExcelWithTemplate(nf_xlsDocs,true);
  xlSetActiveWorkBook(3);
  xlSetCellStringValue('Таб.№',1,1,1,1);
  xlSetCellStringValue('Тип документа',1,2,1,2);
  xlSetCellStringValue('№ документа',1,3,1,3);
  xlSetCellStringValue('Дата выдачи',1,4,1,4);
  xlSetCellStringValue('Учебное заведение',1,5,1,5);
  xlSetCellStringValue('Уровень ICAO',1,6,1,6);

  _row1:=2; _row2:=2; _row3:=2;

  _loop persons
  { 
    ......
! выводим информацию в 1-й файл
    xlSetActiveWorkBook(1);
    xlSetCellStringValue(string(tabnom+10000000),_row1,1,_row1,1);
    xlSetCellStringValue(persons.fio,_row1,2,_row1,2);
    xlSetCellDateValue(persons.borndate,_row1,3,_row1,3);
    xlSetCellDateValue(dPrFirstApp,_row1,4,_row1,4);
    xlSetCellStringValue(NPrFirstApp,_row1,5,_row1,5);
    xlSetCellStringValue(dolgn,_row1,6,_row1,6);
    xlSetCellStringValue(NPrCurApp,_row1,7,_row1,7);
    xlSetCellDateValue(dPrFirstApp,_row1,8,_row1,8);
    xlSetCellStringValue(podr,1,9,1,9);
   ...........
    _row1:=_row1+1;
  }

  xlKillExcel();

Код: Выделить всё

var m1,m2,m3 : LongInt;
m1 := xlCreateMatrixEx (,);
.............
xlStWritetoMatrixEx(m1,iRow,iCol,'')
.............

Код: Выделить всё

...
    bul:=xlOpenExcel(false);
    xlDisplayAlerts(false);
...
    bul:=xlSaveAsWorkBook(1, papka+sklkod+'.xls');
...
    xlKillExcel;
    ExecProgram('taskkill', '/im excel.exe /f', 4096, 0);
...