Hi Гурант!

> _rng='"A'+Alltrim(Str(_start_pos))+'"'
> X =_oleItem.Range(&_rng).SpecialCells(11).Column
> Y =_oleItem.Range(&_rng).SpecialCells(11).Row

Тут макро не нужно.

> _rng='"A'+Alltrim(Str(_start_pos))+':'+num_to_xlscol(X)+Alltrim(Str(Y))+'"'
> _laArray =_oleItem.Range(&_rng).Value

И тут тоже - вообще слишком много "мусора" :(

> Все прекрасно, но если я руками лезу в Excel документ и грохаю пару
> записей в конце, то мне по прежнему возвращается старое количество записей

Ну так не лезь и не меняй!
> Соотв. в массиве последние строки содержат пустые значения.

Или анализируй уже в массиве что там к чему. Может там в середине пустоту
пользователь организовал :)

> Это лечится?

Лечится - например после сохранения книги эти SpecialCells пересчитываются.

> Что такое SpecialCells?

В хелпе по Excel ищи ответ - это типа того как нажать Ctrl+End на листе...

Posted via ActualForum NNTP Server 1.3