Главная страница
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.009 c
6-48238
KPV-10k
2002-05-24 21:18
2002.08.15
Опять про TServerSocket и TClientSocket...


3-47914
Larisa
2002-07-24 13:12
2002.08.15
Внесение новой записи в БД


7-48321
VID
2002-05-30 08:47
2002.08.15
Отключение винта


14-48274
mvg_first
2002-07-19 17:19
2002.08.15
Кто как использует UML в своей работе? Опять же опрос :)


6-48234
mixVictor
2002-06-04 03:24
2002.08.15
Inetdetector