Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.21;
Скачать: [xml.tar.bz2];




Вниз

Как найти последнюю ячейку с данными в EXCEL 


Nikita   (2002-02-06 13:08) [0]

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

4566 test mail
xxx xxx
tes2
xxx ____

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

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



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

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



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

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



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

Данный код переходит на последнюю редактируемую ячейку.
Равноценно нажатию 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 16:36) [4]

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




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.21;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.019 c
3-66465           viller                2002-01-28 12:17  2002.02.21  
storedproc.params.asmemo


14-66668          SV                    2002-01-01 19:33  2002.02.21  
На злобу дня.


3-66499           Garmahis              2002-01-29 21:24  2002.02.21  
Опять SQL


1-66610           foxbad                2002-02-06 12:47  2002.02.21  
Help !!! Как использовать TADO в своей DLL !!!


3-66445           Dim                   2002-01-28 11:51  2002.02.21  
Вот это проблема :)