Доброго времени суток.

Возникла проблема при написании скрипта для Эксцеля. (Скрипт реализую на Delphi через OLE-объект).
Необходимо в одну из ячеек записать строку, которая являлась бы ссылкой на URL (т.е., что-бы пользователь, тыкнув в эту ячейку, попадал на определенный ресурс в интернете). 

Вопрос: как это сделать?
Ну и параллельно с этим обратный вопрос: дан excel-файл, в нем есть несколько ячеек со ссылками. Как программно прочитать адреса ресурсов, на которые они ссылаются?

Это сообщение отредактировал(а) F19 - 27.3.2007, 12:33

как вставить -- начни записывать макрос перед вставкой ссылки; вставь ссылку; закончи писать макрос.
полученный код перепиши на Delphi.
когда у тебя будет код для вставки -- код для чтения будет не сложно написать...

Возможно, не совсем корректно я задал вопрос.

Вот пытаюсь добавить гиперссылку в ячейку A1 ссылку, ну например, на наш форум:

procedure TForm1.Button1Click(Sender: TObject);
var
Excel: variant;
begin
 Excel:=CreateOleObject('Excel.Application');
 Excel.Workbooks.Add;
 Excel.Visible:=true;
 Excel.Hyperlinks.Add('A1', 'http://forum.vingrad.ru/');
end;

Выдается исключение: Method 'Hyperlinks' not supported by automation object.

Вот такая вот фигня...     

Это сообщение отредактировал(а) F19 - 28.3.2007, 11:21

если бы ты сделал так, как я говорил -- ты бы знал что гиперссылку нужно вставлять в лист а не в excel...

Пребольшущее спасибо!

Работает!!!!!

Excel.ActiveSheet.Hyperlinks.Add(Excel.selection, 'http://forum.vingrad.ru/');

       

Добавлено через 12 минут
Не хочу показаться занудой.... Но....

А как теперь прочитать гиперссылку из конкретной ячейки?...

  

Hyperlinks(i).Address?

Теперь только осталось найти соответствие между i (я так понял это номер гиперссылки) и, собственно, ячейкой.....

Вот заношу гиперссылку в ячейку:
  Excel.ActiveSheet.Hyperlinks.Add(Excel.ActiveSheet.Range['B3'],'http://forum.vingrad.ru/'); 

Здесь все круто - записывается.

Пытаюсь считать ссылку из этой же ячейки и ........ - ну никак не получается....   

И так пробовал: str:=Excel.ActiveSheet.Range['B3'].Hyperlinks(1).Address ;
и так: str:=Excel.ActiveSheet.Range['B3'].Hyperlinks(Excel.ActiveSheet.Range['B3'].Hyperlinks.Count).address;
и как тока не пробовал.... Выдает сообщение "Член группы не найден".

 

Добавлено через 7 минут и 5 секунд
Мда....

Вот оно!!!! 

  str:=Excel.ActiveSheet.Range['B3'].Hyperlinks.Item[1].Address ;

   

Теперь работает