![]() |
#1 |
Участник
|
Народ доброго времени суток. Помогите в одной проблеме, всю голову сломал. Проблема простая, но почему то не хочет решаться. Есть такой код
Код: IF NOT CREATE(xlApp,TRUE) THEN ERROR(Text000); FileName := CommonDialogMgt.OpenFile(Text001,FileName,2,'',0); IF NOT EXISTS(FileName) THEN ERROR(Text002); xlApp.Application.Workbooks.Open(FileName); xlWorkBook := xlApp.Application.ActiveWorkbook; xlWorkSheet := xlWorkBook.Worksheets.Item('----'); XlRange := xlWorkSheet.Cells().Item(2,1); ..... xlWorkBook.Close(TRUE); xlApp.Application.Quit; CLEAR(xlWorkSheet); CLEAR(xlWorkBook); CLEAR(xlApp); |
|