VPF::Delphi+Excel - Форум программистов

Bairum

Дата 23.4.2004, 20:44 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Как в Delphi определить присвоено ли имя выделенной в данный момент области в Excel?

cot

Дата 24.4.2004, 06:33 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 69
Регистрация: 4.6.2003

Репутация: нет
Всего: нет

Не пойму вопроса. Что подразумевается под областью в Excel?

Guest

Дата 24.4.2004, 09:09 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Область - совокупность ячеек.

Akella

Дата 26.4.2004, 08:38 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329

Пример функции поиска:

Код

Function TfmImpExcel.Find(sText:String;Var iRow:Integer;Var sCol:String;WorkSheetF:_WorkSheet):Bool;
Var
 UsedRange, Range: OLEVariant;
 t,y:Integer;//вспомогат для импорта
 FirstAddress: string;
begin //поиск
  Result:=False;
  UsedRange := WorkSheetF.Range['A1','Z5000'];
  Range := UsedRange.Find(What:=sText, LookIn := xlValues, LookAt := xlWhole,SearchDirection := xlNext);
//  if not VarIsEmpty(Range)then begin


  [b]if not VarIsClear(Range) then begin[/b]//проверка здесь


    try
      FirstAddress := Range.Address;
      //вычисляем номер строки из полученного адреса(абсолютные координаты)
      //он начинается после второго значка доллара
      t:=PosEx('$',FirstAddress,2);
      iRow:=StrToInt(Copy(FirstAddress,t+1,length(FirstAddress)-t));
      //вычисляем номер столбца из полученного адреса(абсолютные координаты)
      //буква нач. со второго символа
      y:=PosEx('$',FirstAddress,2);
      sCol:=Copy(FirstAddress,2,y-2);
      Result:=true;
    except
      Result:=False;
    end;//try-except
  end;//if
end;

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »