VPF::Excel: заменить все гиперссылки на их значения

Leos239

Дата 9.6.2007, 01:27 (ссылка)

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

Загрузка ...

Новичок

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

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

Вообщем проблема такая. Есть Excel-левский документ и там есть ссылки, т.е. в ячейке написано например "форум" а адресс ссылки http://forum.vingrad.ru/ (Ячейка.Hyperlinks.Item[1].Address).

Так вот, надо во всём документе во всех ячейках, в которых ссылки стоят поставить вместо имени ячейки ("форум" (но есть и другие названия)) её адрес (Ячейка.Hyperlinks.Item[1].Address).

Я делаю так: в цикле обхожу все ячейки и пушу что-то вроде

Код


for i := 1 to x do
begin
  for j := 1 to y do
  begin
    item := WorkSheet.Cells.Item[i, j];
    if item.Hyperlinks.Count > 0 then // Проверка, что ячейка содержит ссылку, 
                                                         //    а иначе ошибка  при  обращении item.Hyperlinks[1].Address
      item.Value := item.Hyperlinks[1].Address
   end;
end

НО РАБОТАЕТ ЭТО КРАЙНЕ МЕДЛЕННО! ПРОСТО УЖАСНО МЕДЛЕННО!!!
20000 ячеек минут 5 обрабатываются

Может кто подскажет, можно ли это как-то ускорить?

Это сообщение отредактировал(а) Leos239 - 9.6.2007, 01:29

Leos239

Дата 11.6.2007, 21:53 (ссылка)

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

Загрузка ...

Новичок

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

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

Вроде сам придумал:

Код


    HyperCount := Worksheet.Hyperlinks.Count;
    for I := 1 to HyperCount do
    begin
      Worksheet.Hyperlinks.Item[I].Range.Value2 := Worksheet.Hyperlinks.Item[I].Address;
    end;

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