Форум: "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.014 c
