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]

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

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