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

Вниз

Поиск в Excel. :(   Найти похожие ветки 

 
eugene32   (2005-04-07 20:29) [0]

При поисек в Excel"e, если Excel ничего не находит ф-я Find возвращает $00000000. Никак не получается проверить нащёл что-нибудь Excel или нет :(
Прошу, помогите :(

Как мне проверить ThisCell? if Assigned(ThisCell) - не пашет.

function TExcel.FindStringNo(ColNo: Integer): Integer;
const
 xlWhole = $00000001;
var
 ThisCell: OleVariant;
 s: String;
 SearchString: String;
begin
 SearchString := "240";
 Excel.Sheets[1].Columns[ColNo].Select;
 ThisCell := Excel.Sheets[1].Columns[ColNo].Find(What:=SearchString, LookAt:=xlWhole);

 if ThisCell then //НЕ РАБОТАЕТ!!!!
 begin
   s := ThisCell.Address[False, False];  // "B939" - format.
   Result := StrToInt(Trim(StripNonNumeric(S)));
 end
 else
  Result := 0;


 
AloneAli ©   (2005-04-08 09:39) [1]

А это не пробовал смотреть?

http://www.delphikingdom.com/asp/viewitem.asp?catalogid=272


 
eugene32   (2005-04-10 10:42) [2]

Пробовал, мне не помогло.
Если можете помочь кодом - буду рад :)


 
eugene32   (2005-04-12 18:49) [3]

Почему не работает?
if Assigned(ThisCell) then
begin
 ...
end;


 
eugene32   (2005-04-12 19:10) [4]

Проблемма решена :)
if not VarIsEmpty(ThisCell) then
begin
 ...
end;


 
Юзверь45   (2005-04-12 19:59) [5]

Удалено модератором



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

Форум: "Corba";
Текущий архив: 2006.02.05;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.074 c
15-1137248808
Хинт
2006-01-14 17:26
2006.02.05
Глюк ICQ/Miranda


4-1132726760
Dico
2005-11-23 09:19
2006.02.05
Internet Options


15-1137170731
Ксардас
2006-01-13 19:45
2006.02.05
Подскажите плиз


2-1137425519
Змей
2006-01-16 18:31
2006.02.05
окно на переднем фоне


4-1132453837
Relaxxx
2005-11-20 05:30
2006.02.05
Корректоное отображение 32-битных иконок(с alpha-каналом) на кно





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