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

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

Как найти последнюю ячейку с данными в EXCEL [D5, Win95/98]


Nikita ©   (2002-02-06 13:08:00) 

Допустим имеем следующий образец записей в файле EXCEL:

4566 test mail
xxx xxx
tes2
xxx ____

Надо определить ячейку, которая для примера подчеркнута,
т.е. определить поледнюю полосу с данными по горизонтали
и вертикали таблцы. Вызов процедуры поиска данной ячейки
будет просходить из Delphi 5.
Каким способом это можно сделать?
(Если можно - с примером).

Заранее спасибо!


Nikita   (2002-02-06 16:36:00) [1]

Большое спасибо!!!!!!!!


USAtyj   (2002-02-06 15:22:00) [2]

Данный код переходит на последнюю редактируемую ячейку.
Равноценно нажатию Ctrl-End на листе Excel.

const
xlLastCell = 11;
var
Excel:Variant;
begin
Excel:=CreateOLEObject("Excel.Application");
...
Excel.ActiveWorkbook.ActiveCell.SpecialCells(xlLastCell).Select;
...
end;


Nikita   (2002-02-06 13:44:00) [3]

Объект OLE.
До первой пустой - не подойдет.
Будет использоваться для импорта данных и некоторые значения могут быть нулевыми (пустые ячейки).


KSergey   (2002-02-06 13:37:00) [4]

Примера под рукой нет, к тому же не понятно о примере чего идет речь: пример нужен на VBA, на Delphi при условии подключения к MS Ecxel как к COM-объекту или еще чего
Если про COM-объект речь, то вроде можно просто перебрать св-ство Cell[], дойдя по первой пустой ячейки...


Наверх

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