Главная страница
    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.45 MB
Время: 0.005 c
1-48028
Fissher
2002-07-31 21:05
2002.08.15
Есть ли у MainMenu свойство Cursor? И как бы это сделать??


1-48147
Малограмотный
2002-08-01 13:52
2002.08.15
Вопрос чайника


1-48094
alord
2002-07-31 08:01
2002.08.15
Макроподстановка


6-48230
Lefan
2002-05-31 10:06
2002.08.15
TNMHTTP и Proxy


1-48207
Vovaka
2002-08-02 09:02
2002.08.15
Помогите. Нужен Delphi 6 Enterprise Update Pack 2 +





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