Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

НЕ могу вставить в Excel таблицу гиперссылку из Delphi [D7, IB6.x]

GekaNaz © (2005-07-28 18:18:00)
Это то, до чего я смог догадаться, но выходит ошибка Acces violation, подскажите, как вставить гиперссылку, на VB знаю как делается(в макросе подсмотрел) а в дельфях не могу :(

ISheet.Hyperlinks.Add(ISheet.Cells.Item[3,3],' http://fox.tomsk.ru/cat/?id=3334','www');

k2 (2005-08-02 06:15:00) [1]
GekaNaz © (30.07.05 12:27)
Подскажите пожалуйста, где взять библиотеку
unit Excel8TLB;(), только для поновее, для 2000-го хотябы

если на твоей машине установлен хотябы офис2000, то импортировать:
project->import type library...->выбрать Microsoft Excel номер_версии Object Library->Create Unit
если каталог по умолчанию не изменял, то добавить $(DELPHI)\Imports; в пути поиска твоего проекта

GekaNaz (2005-07-30 12:27:00) [2]
Подскажите пожалуйста, где взять библиотеку
unit Excel8TLB;(), только для поновее, для 2000-го хотябы

GekaNaz (2005-07-29 17:12:00) [3]
Только вот теперь надо отобразить вместо адреса в ячейке другой текст, не получается, если в качестве последнего параметра задать строку, то она выводится вместе с адресом URL

GekaNaz (2005-07-29 13:23:00) [4]
Уже решил проблему... :(

with ISheet do Hyperlinks.Add(Range['A1', EmptyParam],
' http://www.delphikingdom.com/',
EmptyParam);
а проблема была в том, что этот код я писал выше определения переменной ISheet. Просто прога была давно писана... аж сам заблудился.

КиТаЯц (2005-07-29 13:14:00) [5]
>GekaNaz © (29.07.05 09:52) [4]

Странно сие... Попробуй

uses ComObj{, ExcelXP};// отключить "лишние" юниты кроме ComObj

GekaNaz (2005-07-29 09:52:00) [6]
[Error] main.pas(2527): Undeclared identifier: 'Hyperlinks'

у меня тоже Office XP но выскакивает ошибка

КиТаЯц (2005-07-29 09:20:00) [7]
var XL: Variant; ... begin ... XL := CreateOleObject('Excel.Application'); ... XL.Workbooks.Add; ... XL.Range['A1','A1'].Select; //XL.Selection.Font.Size:=8; XL.ActiveSheet.Hyperlinks.Add( Anchor:=XL.Selection, Address:=' http://www.games.telcosoft.ru/', ScreenTip:='Официальный сайт программы'+_+Application.Title //TextToDisplay:='Почаще сюда заглядывайте :)' ); ...

Проверено на OfficeXP

GekaNaz (2005-07-29 08:46:00) [8]
А если я делаю так? разве никуда не указывает ?

ISheet: Excel8TLB._Worksheet;
begin
ISheet := IWorkbook.Worksheets.Item[1] as Excel8TLB._Worksheet;

Reindeer Moss Eater (2005-07-28 18:35:00) [9]
Гиперссылка здесь не виновата.
У тебя ISheet никуда не указывает.

Наверх

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