| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

фл ©   (2002-05-07 17:40:00) 

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-08 12:32:00) [1]

> AFROLOV © (08.05.02 12:24)

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

---

AFROLOV   (2002-05-08 12:24:00) [2]

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

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 11:01:00) [3]

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

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

---

AFROLOV   (2002-05-08 10:53:00) [4]

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

---

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

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

---

AFROLOV   (2002-05-08 10:17:00) [6]

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

---

фл   (2002-05-08 09:53:00) [7]

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

---

olookin   (2002-05-07 18:59:00) [8]

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

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

---

фл   (2002-05-07 18:11:00) [9]

ау, help

---

Наверх