Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.012 c