добавить Hyperlink в Excel

[InTacto]

У меня получилось так:

CREATE(xlApp,TRUE);
xlWrkbook := xlApp.Workbooks.Add;

xlWrksheet := xlWrkbook.ActiveSheet;

Hypers := xlWrksheet.Hyperlinks;
Hypers.Add(xlWrksheet.Range('A1'),'', 'Лист1!B17', '','Ура!');

xlApp.Visible(TRUE);

Name	DataType	Subtype	Length
xlApp	Automation	Unknown Automation Server.Application	
xlWrksheet	Automation	Unknown Automation Server.Worksheet	
xlWrkbook	Automation	Unknown Automation Server.Workbook	
Hypers	Automation	'Microsoft Excel 12.0 Object Library'.Hyperlinks

Кстати, второй параметр это путь до файла, адрес внутри файла - 3 параметр