|
|
#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); |
|
|
|
|
#2 |
|
Участник
|
2 helga
Всё равно сеанс оостаётся ![]() В чём засада пока не нашёл. Народ неужели никто не работал с Automation объектом Range ? |
|
|
|
|
#3 |
|
Участник
|
А добавить CLEAR(xlRange) не пробовали?
|
|
|
|
|
#4 |
|
Участник
|
Пробовал, увы clear(xlrange) очищает лишь переменную Nav, сессия Excel остаётся
|
|
|
|
|
#5 |
|
Участник
|
А изменения то сами вносятся ли нет?
|
|
|
|
|
#6 |
|
Moderator
|
Сделайте так:
XlApp.Visible(TRUE); XlApp.UserControl(TRUE); CLEAR(XlApp); и посмотрите, что осталось висеть в Екселе. Возможно использование Range связано с настройками использования ClipBoard. |
|
|
|
|
#7 |
|
Участник
|
2 Fordewind
Нет данные только считываются 2 Dzemon Пробовал остётся висеть Excel Народ уже устал биться с этой проблемой, подскажите хотя бы синтаксис кода обращение к значению конкретной ячейки, причём в синтаксисе ряд и столбец желательны в виде переменных, в которые можно подставлять числовые значения. Спасиб. |
|
|
|
|
#8 |
|
Участник
|
Цитата:
А синтаксис посмотрите в 370-й таблице. Функция ReadSheet. Кстати, ей можно пользоваться
|
|
|
|
|
#9 |
|
NavAx
|
Цитата:
подскажите хотя бы синтаксис кода обращение к значению конкретной ячейки
'A1' можете складывать программно из переменных.
__________________
"Моей лошадке ядрышком полмордочки снесло..." А.В.Суворов, письма к дочери |
|
|