Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.08.15;
Скачать: CL | DM;

Вниз

Конец файла .xls   Найти похожие ветки 

 
Andy BitOff ©   (2002-08-03 11:27) [0]

Я открываю файл .xls для чтения таким способом:

Var
Excel, WorkBook, Sheet: Variant;
begin
Excel := CreateOleObject("Excel.Application");
try
Excel.WorkBooks.Open(BDFile);
WorkBook := Excel.WorkBooks.Item[1];
Sheet := Excel.Application.Worksheets.Item[1];

....

finally
Excel.WorkBooks.Close;
end;
end;
-------
Затем надо устроить поиск в определенном столбце какого-то значения, как это можно сделать? Если через Compare, то как определить конец файла, если значение не найдено, то чтобы не повисло надо знать либо количество строк, либо как-то еще контролировать конец.


 
Andy BitOff ©   (2002-08-03 14:19) [1]

Неужели никто не может мне ответить!!!!!!???????


 
Opuhshii ©   (2002-08-03 14:46) [2]

"Неужели никто не может мне ответить!!!!!!???????",... да нет,.. может,.. только суббота сегодня,.. %),.. типа нерабочий день,.. все отдыхают,.. но всеже...

у объекта Range есть метод Find,... дык вот он тебе видимо и нужОн,..
Find(What, After, LookIn, LookAt, SearchOrder, SearchDirection, MatchCase, MatchByte)
как его использовать,.. смоти МСДН,.. или самый хороший хелп по функциям ексель, ворд и тд. и тп,.. это записать макрос,.. а потом посмотреть его код,...

Best regards
Opuhshii


 
Opuhshii ©   (2002-08-03 15:05) [3]

2Andy BitOff © (03.08.02 14:19)
ой!,... а Вы чем искать-то хотите,.. ?? екселем?,..
если им то все правильно,...
или что-нибудь вроде CompareStr,?,..
мда,.. если последним,. то, imho нелучший вариант конечно, через клипборд можно,...

Sheet.Cells.Copy;
if Clipboard.HasFormat(CF_TEXT) then
Memo1.Text := Clipboard.AsText;

ну или ,.. хоть куда,..

Best regards
Opuhshii



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

Текущий архив: 2002.08.15;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.018 c
14-48303
Пастор
2002-07-22 12:24
2002.08.15
Кто нибудь учился в ХАИ ?


6-48225
Adventure
2002-05-31 13:40
2002.08.15
***** Нужна идея ***** (Посещение


3-47992
Builder
2002-07-24 12:59
2002.08.15
Password in AdoConnection


4-48365
mev2000
2002-06-08 23:46
2002.08.15
Как в KOL организовать рекурсивный поиск фалов???


3-47975
UnDISCOvery
2002-07-26 14:15
2002.08.15
Уважаемые ! Помогите с кодом разобраться !