Модераторы: Snowy, MetalFan, bems, Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> [delphi] Excel - ссылка в ячейке, цвет ячейки 
:(
    Опции темы
pegorov
Дата 7.9.2010, 20:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 49
Регистрация: 27.4.2008

Репутация: нет
Всего: нет
Привет всем.

Требуется разобрать экселевскую табличку на составляющие. Как получить текст из определенной ячейки понятно, я через OLE делаю, например. А как можно получить адрес ссылки, находящийся в определенной ячейке и цвет ее фона?
PM MAIL   Вверх
Данкинг
Дата 7.9.2010, 20:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130
Цвет ячейки - activeworkbook.activesheet.cells[x,y].Interior.Color.


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
pegorov
Дата 7.9.2010, 22:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 49
Регистрация: 27.4.2008

Репутация: нет
Всего: нет
Так, одна проблема решена =)
А вот со ссылкой как-то все сложно. Гугль ответов не дает =(
PM MAIL   Вверх
Данкинг
Дата 7.9.2010, 22:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130
Цитата(pegorov @  7.9.2010,  23:39 Найти цитируемый пост)
А вот со ссылкой как-то все сложно. 

activeworkbook.activesheet.cells[x,y].formular1c1 - не подходит?



--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Albinos_x
Дата 8.9.2010, 14:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Evil Skynet
****


Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 2
Всего: 108
Цитата(pegorov @  7.9.2010,  20:12 Найти цитируемый пост)
А как можно получить адрес ссылки

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


--------------------
"Кто владеет информацией, тот владеет миром"    
Уинстон Черчилль
PM MAIL ICQ   Вверх
pegorov
Дата 8.9.2010, 15:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 49
Регистрация: 27.4.2008

Репутация: нет
Всего: нет
Цитата(Albinos_x @ 8.9.2010,  14:11)
Цитата(pegorov @  7.9.2010,  20:12 Найти цитируемый пост)
А как можно получить адрес ссылки

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

Есть ячейка. В ячейке гиперссылка.

ЗЫ Данкинг, спасибо, как до нормального компьютера доеду, попробую =)
PM MAIL   Вверх
pegorov
Дата 8.9.2010, 21:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 49
Регистрация: 27.4.2008

Репутация: нет
Всего: нет
Цитата(Данкинг @ 7.9.2010,  22:46)
Цитата(pegorov @  7.9.2010,  23:39 Найти цитируемый пост)
А вот со ссылкой как-то все сложно. 

activeworkbook.activesheet.cells[x,y].formular1c1 - не подходит?

Нет, не прокатило. Собственно, и не должно было, там же все-таки не функция в ячейке =)
PM MAIL   Вверх
Данкинг
Дата 8.9.2010, 22:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130
А тип ячейки-то (в которой ссылка) какой?


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
pegorov
Дата 9.9.2010, 00:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 49
Регистрация: 27.4.2008

Репутация: нет
Всего: нет
Цитата(Данкинг @ 8.9.2010,  22:23)
А тип ячейки-то (в которой ссылка) какой?

То есть формат ячейки? Формат общий.

Это сообщение отредактировал(а) pegorov - 9.9.2010, 00:15
PM MAIL   Вверх
Данкинг
Дата 9.9.2010, 00:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130
Что-то я тогда не понимаю: а что именно не работает? Нужно взять значение ячейки, а в чём проблема? Вот так вот ссылка нормально показывается:
Код

MsgBox (ActiveCell.FormulaR1C1)

И дальше уже делаешь с ней, что нужно.

Добавлено через 1 минуту и 2 секунды
Цитата(pegorov @  8.9.2010,  22:52 Найти цитируемый пост)
Собственно, и не должно было, там же все-таки не функция в ячейке =) 

FormulaR1C1 возвращает именно значение ячейки.


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
pegorov
Дата 9.9.2010, 01:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 49
Регистрация: 27.4.2008

Репутация: нет
Всего: нет
Так =) Кто-то из нас чего-то не понимает. =)
вот файлик 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/" не возвращается.
PM MAIL   Вверх
Данкинг
Дата 9.9.2010, 09:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130
Цитата(pegorov @  9.9.2010,  02:23 Найти цитируемый пост)
ам на первой и единственной вкладке в ячейке А1 содержится гиперссылка с текстом CURRENT LIST и адресом http://ya.ru/

А такого даже никогда не видел. А подобную ссылку вставить в ячейку? Может, от обратного надо начинать.



--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
aleksh
Дата 9.9.2010, 10:31 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 609
Регистрация: 8.7.2008

Репутация: 1
Всего: 13
Код

    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;


в макросах все написано
PM MAIL   Вверх
pegorov
Дата 9.9.2010, 18:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 49
Регистрация: 27.4.2008

Репутация: нет
Всего: нет
Точно, спасибо!
PM MAIL   Вверх
aleksh
Дата 9.9.2010, 22:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 609
Регистрация: 8.7.2008

Репутация: 1
Всего: 13
тогда следует отметить вопрос как решенный
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0836 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.