Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.08.15;
Скачать: [xml.tar.bz2];

Вниз

Конец файла .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;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.55 MB
Время: 0.019 c
1-48161
Андрусь
2002-08-01 19:06
2002.08.15
как отследить переменную по адресу в куче


4-48350
VJar
2002-06-07 00:56
2002.08.15
Проблема с получением окон в Taskbar


3-47937
Gamar
2002-07-25 12:44
2002.08.15
Как в Дельфи перекопировать все поля одной записи в другую?


1-48036
V.Turecky
2002-08-03 15:31
2002.08.15
Как организовать выход по Esc?


14-48266
MAN-IN-RED
2002-07-19 13:24
2002.08.15
Где в Киеве можно купить Xbox?





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский