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

Никак не получается в *.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]

> AFROLOV © (08.05.02 12:24)

работает!!!
ОГРОМНОЕ спаисибо!!!!

---

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

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



Память: 0.46 MB
Время: 0.01 c