Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

В чем ошибка?


Гость22 ©   (2005-09-13 17:05:00) 

Подключаюсь Excel и пытаюсь удалить всю строку 2, если ячейка 'A2' пустая. Тип ячейки - текстовый. Вот код:
ex := CreateOleObject('Excel.Application');
...
if ex.range['A2']='' then ex.range['2:2'].delete; {тут ошибка}
{причем, если просто, ex.range['2:2'].delete; , то удаляет бе проблем}
А с условием выдает ошибку:
'Invalid variant operation'


Гость22   (2005-09-13 20:50:00) [1]


> _RusLAN ©   (13.09.05 19:47) [2]


Спасибо, большое!


_RusLAN   (2005-09-13 19:47:00) [2]


> Гость22


ex.range['A2'] .Text = ''


> Digitman ©   (13.09.05 18:19) [1]
>
> > если просто, ex.range['2:2'].delete; , то удаляет бе проблем
> врешь ведь)


When used without an object qualifier, this property is a shortcut for ActiveSheet.Range (it returns a range from the active sheet; if the active sheet isn't a worksheet, the property fails).


Digitman   (2005-09-13 18:19:00) [3]


> если просто, ex.range['2:2'].delete; , то удаляет бе проблем


врешь ведь)

ex.range['2:2'].delete в дан.случае возбудит искл.ситуацию с диагностикой "OLE error 800A03EC", что в переводе на басурманский означает "у объекта Application нет ни метода ни свойства с именем Range" .. и "условие" тут ни при чем, хоть есть оно, хоть нет его ..


Наверх

Титульная страница Поиск, карта сайта Написать письмо