Ошибка при активизации последней ячейки

← →
Drakosha (2005-02-02 12:50) [0]

Делаю так:
XLApp :=TExcelApplication.Create(self); XLApp.ConnectKind :=ckNewInstance; XLApp.DisplayAlerts[0] :=False; XLApp.Connect; wsFilePath :="c:\a.xls"; XLApp.Workbooks.Open(wsFilePath,EmptyParam,EmptyParam, EmptyParam,EmptyParam,EmptyParam,EmptyParam, EmptyParam,EmptyParam,EmptyParam, EmptyParam,EmptyParam,EmptyParam,0); try WorkBk :=XLApp.Workbooks.Item[1]; WorkSheet :=WorkBk.Worksheets.get_Item(1) as _WorkSheet; WorkSheet.Cells.SpecialCells(xlLastCell,EmptyParam).Activate; except XLApp.Workbooks.Close(0); XLApp.Quit; XLApp.Disconnect;

При активации последней ячейки вылазит эксепшен(даже в тру-ексепт)
типа: невозможно выполнить метод активате обьекта ранж :(

Прога обрабатывает большое число экселевских файлов.Я даже не могу понять почему некоторые файлы не проходят. Открываю их смотрю вроде файл как вайл а фиг работает.
Может кто сталкивался с подобным. Помогите плиз.

← →
Digitman © (2005-02-02 13:21) [1]

> невозможно выполнить метод активате обьекта ранж

да, чудес в Экселе хватает, эт точно

> вылазит эксепшен(даже в тру-ексепт)

а вот в это не верю.

← →
Drakosha (2005-02-02 13:25) [2]

век воли не видать!
ну тоесть ет не ексепшен в обычном понимании.
Я так понимаю что это сообщение выдаёт сам ексел. и поэтому делфа его не хватет. при этом прога виснет и тока через диспечер снимается :(

← →
Digitman © (2005-02-02 13:38) [3]

> ну тоесть ет не ексепшен в обычном понимании

а что же это по-твоему ?
обычное исключение ... класса EOleSysError ...

← →
Drakosha (2005-02-02 13:41) [4]

блин...я те говорю что при дебаге и этой ошибке даже в эксепт не заходит.
Т.е. для экселя это ошибка и он отображает сообщение , и дальше не передаёт. тобишь делфа думает что всё Ок и виснет :)

← →
КаПиБаРа © (2005-02-02 13:45) [5]

Drakosha (02.02.05 13:41) [4]
Напиши в микрософт :)

← →
Drakosha (2005-02-02 13:55) [6]

оч смешно.
...а мне эти файлы приходится руками править и обрабатывать :(

← →
КаПиБаРа © (2005-02-02 14:01) [7]

Drakosha (02.02.05 12:50)
Ошибка происходит при определении SpecialCells(xlLastCell,EmptyParam) или при ее активации?
Разбей на 2 этапа
Cell := WorkSheet.Cells.SpecialCells(xlLastCell,EmptyParam)
Cell.Activate

Может данные в другую (хорошую) книгу скопировать надо.

← →
Drakosha (2005-02-02 18:17) [8]

вылетает на cell.activate

← →
КаПиБаРа © (2005-02-04 07:57) [9]

Проверь номер строки/столбца ячейки

> типа: невозможно выполнить метод активате обьекта ранж

приведи полное и точное сообщение об ошибке, а не "типа"..

← →
Drakosha (2005-02-09 11:07) [11]

2КаПиБаРа
Что значит "Проверь номер строки/столбца ячейки"?

2Digitman
"Невозможно выполнить метод Activate обьекта Range"

← →
Drakosha (2005-02-09 11:08) [12]

Drakosha (09.02.05 11:07) [11]

Ячейка определяется номером столбца и строки.
Какие номера имеет Cell := WorkSheet.Cells.SpecialCells(xlLastCell,EmptyParam)?
Соответствуют они действительности?

Ошибка при активизации последней ячейки Найти похожие ветки