Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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]

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




Страницы: 1 вся ветка

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

Наверх




Память: 0.45 MB
Время: 0.004 c
1-66589
IgoX
2002-02-05 20:37
2002.02.21
Почему так происходит


14-66656
DjG-CORE
2001-10-29 20:03
2002.02.21
Ведётся создание игры Resident Evil на TMT Pascal-е / Delphi.


1-66508
UnDISCOvery
2002-02-04 16:54
2002.02.21
Уважаемые ! Объясните разницу, плиз !


14-66673
Bizon
2002-01-03 10:04
2002.02.21
Новый год.


1-66570
Max-tiger
2002-02-04 11:55
2002.02.21
Как в RichEdit выравнять текст по ширине?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский