[delphi] Excel - ссылка в ячейке, цвет ячейки

Привет всем.Требуется разобрать экселевскую табличку на составляющие. Как получить текст из определенной ячейки понятно, я через OLE делаю, например. А как можно получить адрес ссылки, находящийся в определенной ячейке и цвет ее фона?
14 ответов

Цвет ячейки - activeworkbook.activesheet.cells[x,y].Interior.Color.


Так, одна проблема решена =)А вот со ссылкой как-то все сложно. Гугль ответов не дает =(


А вот со ссылкой как-то все сложно. 
activeworkbook.activesheet.cells[x,y].formular1c1 - не подходит?


А как можно получить адрес ссылки
по точнее про какие ссылки идет речь?


Цитата(pegorov @  7.9.2010,  20:12 )
А как можно получить адрес ссылки
по точнее про какие ссылки идет речь?
Есть ячейка. В ячейке гиперссылка.ЗЫ Данкинг, спасибо, как до нормального компьютера доеду, попробую =)


Цитата(pegorov @  7.9.2010,  23:39 )
А вот со ссылкой как-то все сложно. 
activeworkbook.activesheet.cells[x,y].formular1c1 - не подходит?
Нет, не прокатило. Собственно, и не должно было, там же все-таки не функция в ячейке =)


А тип ячейки-то (в которой ссылка) какой?


А тип ячейки-то (в которой ссылка) какой?
То есть формат ячейки? Формат общий.


Что-то я тогда не понимаю: а что именно не работает? Нужно взять значение ячейки, а в чём проблема? Вот так вот ссылка нормально показывается:
MsgBox (ActiveCell.FormulaR1C1)
И дальше уже делаешь с ней, что нужно.Добавлено через 1 минуту и 2 секунды
Собственно, и не должно было, там же все-таки не функция в ячейке =) 
FormulaR1C1 возвращает именно значение ячейки.


Так =) Кто-то из нас чего-то не понимает. =)вот файлик http://zalil.ru/29653680Там на первой и единственной вкладке в ячейке А1 содержится гиперссылка с текстом CURRENT LIST и адресом http://ya.ru/код
procedure TForm1.btn1Click(Sender: TObject);var Excel: Variant;begin    Excel := CreateOleObject('Excel.Application');    Excel.Workbooks.Open['d:\123.xls', 0, True];    ShowMessage(Excel.ActiveWorkbook.Sheets.Item[1].Cells[1, 'A'].formular1c1);    Excel.ActiveWorkbook.Close;    Excel.Application.Quit;end;
возвращается окошко с текстом CURRENT LIST. "http://ya.ru/" не возвращается.


ам на первой и единственной вкладке в ячейке А1 содержится гиперссылка с текстом CURRENT LIST и адресом http://ya.ru/
А такого даже никогда не видел. А подобную ссылку вставить в ячейку? Может, от обратного надо начинать.


    Excel := CreateOleObject('Excel.Application');    Excel.Workbooks.Open['d:\123.xls', 0, True];    ShowMessage(Excel.ActiveWorkbook.Sheets.Item[1].Cells[1, 'A'].formular1c1);    showmessage(excel.activeworkbook.sheets.item[1].hyperlinks[1].Address);    Excel.ActiveWorkbook.Close;    Excel.Application.Quit;
в макросах все написано


Точно, спасибо!


тогда следует отметить вопрос как решенный