Поиск в 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]

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

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