Никак не получается в *.xls запихнуть гиперссылку

← →
фл (2002-05-07 17:40) [0]

MacroRecorder выдаёт что-то вроде
Range("B4").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
"C:\Мои документы\1.jpg"
Никак не получается это приспособить к дельфи. Как ни сделаю, выдаёт разные ошибки. Соединяюсь с Excel так:
var XL: Variant;
XL:=CreateOLEObject("Excel.Application");
XL.WorkBooks.add;
XL.visible:=true;

← →
фл (2002-05-07 18:11) [1]

ау, help

← →
olookin (2002-05-07 18:59) [2]

Может быть так:

XL.Application.ActiveSheet.Hyperlinks.Add(Anchor:=XL.Application.ActiveShhet.Range("B4"); Address:="C:\MyDoc\1.jpg");

← →
фл (2002-05-08 09:53) [3]

Так не работает.
EOleSysError "Член группы не найден"

← →
AFROLOV (2002-05-08 10:17) [4]

Попробуй доступаться к Range через Item.

← →
фл (2002-05-08 10:32) [5]

> AFROLOV ©
к Range через Item?
Можно привести примерчик - никак не получается.

← →
AFROLOV (2002-05-08 10:53) [6]

Извеняюсь, не через Item а через cells.

← →
фл (2002-05-08 11:01) [7]

> AFROLOV © (08.05.02 10:53)
может я чего-то не понимаю, но imho это ничего не даст.

Приведите, пожалуйста, кто-нибудь работающий пример!!!
Ну никак не получается второй деннь уже!!!

← →
AFROLOV (2002-05-08 12:24) [8]

вот рабочий пример.

procedure TForm1.Button1Click(Sender: TObject); var XL:Variant; begin XL:=CreateOLEObject("Excel.Application"); XL.WorkBooks.add; XL.visible:=true; XL.ActiveSheet.Hyperlinks.Add(XL.ActiveSheet.Cells[1,1]," http://www.yandex.ru","yandex","yandex"); end;

← →
фл (2002-05-08 12:32) [9]

Никак не получается в *.xls запихнуть гиперссылку Найти похожие ветки