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