Скачать: CL | DM;

Excel неправильно выдает гиперссылки у ячеек. Почему?   Найти похожие ветки 

← →
Vlad Oshin ©   (2007-04-28 11:59) [0]

Прерываю все процессы Excel. (terminateProcess)
Создаю свой.
 ExcelApp := CreateOleObject("Excel.Application");
 ExcelApp.Application.EnableEvents := false;
 Workbook := ExcelApp.WorkBooks.Add(paramstr(1));

Бегу по ячейкам, считываю гиперссылки, все нормально.
   for j:=2 to remarks-1 do begin //--------------------------
       ReadCell(i, j, s1, s2);

Вдруг,  стала приходить не та гиперссылка. Все приходят правильно, а одна - нет. Причем одна и таже.

Открываю excel, смотрю свойства этой ячейки - такие же как и у других.
А ссылка не та, что возвращается.. Причем, ссылка возвращается реальная. По ней можно перейти, но не туда, куда бы переход был, если б щелкнули по ячейке.

procedure ReadCell(x,y:integer; var ValueCell,HyperLink:string);
begin
ValueCell:=string(WorkBook.WorkSheets[1].Cells[x, y]);
  Cell1 := WorkBook.WorkSheets[1].Cells[x, y];
  Cell2 := WorkBook.WorkSheets[1].Cells[x, y];
  Range := WorkBook.WorkSheets[1].Range[cell1, cell2];
//if strtoint(Range.Hyperlinks.Count)>1 then showmessage(""); // вдруг их несколько. Ни разу не сработало. Значит, их всегда не больше 1
if strtoint(Range.Hyperlinks.Count)>0 then HyperLink:= Range.Hyperlinks.item[1].Address
                                      else HyperLink:= "";

end;

---

← →
Vlad Oshin ©   (2007-04-28 12:03) [1]

да, само значение считывает верно. всегда.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.028 c