|
|
#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); |
|
|