КАРТА САЙТА
Sibnet.ru
Sibnet.ru

Sibnet.ru — это информационно-развлекательный интернет-проект, ориентированный на широкий круг Сибирского региона.
По данным Rambler Top100, Sibnet.ru является самым популярным порталом в Сибири.

Контакты:
АО "Ринет"
ОГРН 1025402475856
г. Новосибирск, ул. Якушева, д. 37, 3 этаж
отдел рекламы:
(383) 347-10-50, 347-06-78, 347-22-11, 347-03-97

Редакция: (383) 347-86-84

Техподдержка:
help.sibnet.ru
Авторизируйтесь,
чтобы продолжить
Некоторые функции доступны только зарегистрированным пользователям
Неправильный логин или пароль

Внимание! Теперь для входа на форум необходимо вводить единый пароль регистрации сервисов sibnet.ru!

Здравствуйте, гость ( Вход | Регистрация )



 
Ответить в эту темуОткрыть новую тему
> Excel Vs Вконтакте
PROgR
сообщение 13.7.2016, 18:33
Сообщение #1



Group Icon


Группа: Sibnet-club
Сообщений: 2 472
Регистрация: 10.12.2009
Из: Киселёвск
Пользователь №: 176 769



Репутация:   671  


Здравствуйте!
Как вставить ссылку в ячейку Excel на страницу Вконтакте?
На данный момент при переходе по ссылке из книги, тебя отправляет на страницу https://new.vk.com/badbrowser.php
Где утверждается, что ваш браузер устарел. Использую Google Chrome последней версии.

Сообщение отредактировал PROgR - 13.7.2016, 23:41
Пользователь в офлайнеКарточка пользователяОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
Jek
сообщение 14.7.2016, 0:16
Сообщение #2


     
Group Icon


Группа: Супермодераторы
Сообщений: 16 245
Регистрация: 27.9.2007
Из: N44.785780 E37.385650 WEB: https://irc.k-42.ru IRC: irc.sibnet.ru #iclub
Пользователь №: 6 588



Репутация:   1854  


Можно попробовать сокращалку ссылок или anonym.to smile.gif.


» Спасибо сказали: «
Пользователь в офлайнеКарточка пользователяОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
PROgR
сообщение 14.7.2016, 0:22
Сообщение #3



Group Icon


Группа: Sibnet-club
Сообщений: 2 472
Регистрация: 10.12.2009
Из: Киселёвск
Пользователь №: 176 769



Репутация:   671  


Цитата(Jek @ 14.7.2016, 0:16) *

Можно попробовать сокращалку ссылок или anonym.to smile.gif.

Когда таких ссылок пара тысяч, сомнительное удовольствие, проще сохранить лист в html формате.
Пользователь в офлайнеКарточка пользователяОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
Neznаyka
сообщение 14.7.2016, 7:10
Сообщение #4



Group Icon


Группа: Пользователи
Сообщений: 747
Регистрация: 8.6.2012
Пользователь №: 436 214



Репутация:   67  


Цитата(PROgR @ 13.7.2016, 19:33) *

На данный момент при переходе по ссылке из книги, тебя отправляет на страницу https://new.vk.com/badbrowser.php
Где утверждается, что ваш браузер устарел. Использую Google Chrome последней версии

Насчёт причин этого явления, вот что было в интернетах (извините, но переводить лень):
Цитата

Clicking a URL in Excel seems to open it in your default browser. But that's not really true. Before opening it in your browser, Excel first runs Microsoft Office Protocol Discovery. This uses a Windows/Internet Explorer component to determine if the URL works. (It does not identify itself as Internet Explorer, but as "User Agent: Microsoft Office Existence Discovery".) And if the results are (somehow) okay then it will open the result of that check in your default browser

Вышеизложенное легко проверить. Запускаем простейший макрос «открыть ссылку» (в Excel 2013) – получаем страничку «вы используете устаревший браузер».
Код

Sub TestUserAgent0()
    ActiveWorkbook.FollowHyperlink Address:=" https://new.vk.com/durov"
End Sub

Тот же макрос, но с юзер-агентом от мазилы открывает ссылку нормально.
Код

Sub TestUserAgent1()
    ActiveWorkbook.FollowHyperlink Address:=" https://new.vk.com/durov", HeaderInfo:="User-agent: Mozilla/5.0 (Windows NT 6.1; WOW64; rv:47.0) Gecko/20100101 Firefox/47.0"
End Sub

Цитата(PROgR @ 14.7.2016, 1:22) *

Когда таких ссылок пара тысяч, сомнительное удовольствие, проще сохранить лист в html формате

На примере упомянутого выше anonym.to, можно воспользоваться примитивным макросом, добавляющим в начало всех ссылок на листе «http://anonym.to/?»:
Код

Sub UpgradeLinks()
    Dim Item As Hyperlink
    For Each Item In ActiveSheet.Hyperlinks
        Item.Address = "http://anonym.to/?" & Item.Address
    Next
End Sub

Это всё полумеры конечно, по-хорошему надо найти и подрихтовать офисного юзер-агента biggrin.gif


» Спасибо сказали: «
Пользователь в офлайнеКарточка пользователяОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
Jek
сообщение 14.7.2016, 21:04
Сообщение #5


     
Group Icon


Группа: Супермодераторы
Сообщений: 16 245
Регистрация: 27.9.2007
Из: N44.785780 E37.385650 WEB: https://irc.k-42.ru IRC: irc.sibnet.ru #iclub
Пользователь №: 6 588



Репутация:   1854  


Цитата(PROgR @ 14.7.2016, 0:22) *
Когда таких ссылок пара тысяч, сомнительное удовольствие, проще сохранить лист в html формате.

Можно в настройках MSIE указать прокси-сервер, который подменяет User-Agent. Можно ещё десяток разных маньячных вариантов сочинить. А пара тысяч ссылок... Можно сделать замену по всем листам / книгам.

А ещё у меня есть подозрение, что такую базу логичней показывать потенциальному пользователю через веб-интерфейс, а не в XL-е smile.gif. Поэтому как минимум

Цитата
проще сохранить лист в html формате


» Спасибо сказали: «
Пользователь в офлайнеКарточка пользователяОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
Neznаyka
сообщение 16.7.2016, 18:05
Сообщение #6



Group Icon


Группа: Пользователи
Сообщений: 747
Регистрация: 8.6.2012
Пользователь №: 436 214



Репутация:   67  


Возможно тема уже неактуальна, но можно вообще забить на проблему юзер-агента и тугодумство офиса.
Сначала нужно отключить автозамену адресов интернета гиперссылками – при вставке новых адресов и изменении ячеек с существующими они не будут преобразовываться в гиперссылки (скриншот Excel 2013):
» Спойлер (нажмите, чтобы прочесть) «

Затем запускается макрос (в стандартном модуле), удаляющий все гиперссылки в книге (стиль гиперссылок для ячеек сохраняется):
(На месте FireFox(x86) в BrowserPath, понятное дело, может быть указан любой другой)
Код

Option Explicit
Public Const BrowserPath As String = "C:\Program Files (x86)\Mozilla Firefox\firefox.exe"

Sub DeleteLinks()
    Dim CellAdr As String
    Dim LinkItem As Hyperlink
    Dim SheetItem As Worksheet
    For Each SheetItem In Worksheets
        For Each LinkItem In SheetItem.Hyperlinks
            CellAdr = LinkItem.Range.Address
            LinkItem.Delete
            SheetItem.Range(CellAdr).Style = "Hyperlink"
        Next
    Next
End Sub

Во все модули листа (увы, вручную) вставляется следующий код:
Код

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Left(LTrim(Target.Value), 7) = "http://" Or Left(LTrim(Target.Value), 8) = "https://" Then
        Shell BrowserPath & " " & Target.Value
        Cancel = True
    End If
End Sub

Теперь при двойном клике по ссылке последняя откроется непосредственно в браузере, без лишних офисных выкрутасов. Двойной клик по ячейке со ссылкой теперь не будет переводить её в режим редактирования, впрочем, F2 работает, как и раньше.


» Спасибо сказали: «
Пользователь в офлайнеКарточка пользователяОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
PROgR
сообщение 17.7.2016, 4:59
Сообщение #7



Group Icon


Группа: Sibnet-club
Сообщений: 2 472
Регистрация: 10.12.2009
Из: Киселёвск
Пользователь №: 176 769



Репутация:   671  


Большое спасибо!
Человека устроил вариант HTML, не залез даже вариант с предложенным anonym.to, что в принципе самое простое, только в упрощенном виде:
=ГИПЕРССЫЛКА("http://anonym.to/?"&[ячейка с адресом]; "Перейти")
В итоге все это стало PDF файлом))

P.S.
Т.е. ссылка, после валидации, открывается непосредственно файлом в BrowserPath с указанием чего открыть.
Для себя сохраню в заготовках, может пригодится.)

Сообщение отредактировал PROgR - 17.7.2016, 5:28
Пользователь в офлайнеКарточка пользователяОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
Rattack
сообщение 10.2.2017, 0:16
Сообщение #8


Молчун
Group Icon


Группа: Пользователи
Сообщений: 1
Регистрация: 10.2.2017
Пользователь №: 551 525



Репутация:   0  


Можно сделать гораздо проще: замените вк ссылки с http на https! Всё заработает.
Пользователь в офлайнеКарточка пользователяОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения

Ответить в эту темуОткрыть новую тему
1 чел. просматривают этот форум (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 

Текстовая версия Сейчас: 29.3.2024, 15:26
Редакция: (383) 347-86-84

Техподдержка:
help.sibnet.ru
Размещение рекламы:
тел: (383) 347-06-78, 347-10-50

Правила использования материалов