Возврат текущего URL в ячейку

Пользователь

Сообщений: 7 Регистрация: 21.11.2020

21.11.2020 10:07:33

Добрый день! Задача вроде бы простая, но так как в VBA слаб - пришел к вам. Мне нужно чтобы при открытии страницы в браузере (можно даже IE) в ячейку допустим А1 попадала ссылка на страницу (если в текстовом формате, а не ссылкой, то даже лучше). Объясню для чего: после выгрузки на сайт данных (CRM), на каждую новую страницу я делаю QR, с ним я разобрался, а вот с ссылкой никак =(
Помогите пожалуйста.

БМВ

Модератор

Сообщений: 23333 Регистрация: 28.12.2016

Excel 2013, 2016

21.11.2020 12:31:57

Цитата
Alexandr написал: при открытии страницы

кто её открывает?

По вопросам из тем форума, личку не читаю.

Alexandr Пользователь Сообщений: 7 Регистрация: 21.11.2020	#3 21.11.2020 12:36:21 БМВ, я сам открываю. Но постоянно копировать ссылку и вставлять в эксель я с ума сойду. Бывает по 100 в день. По сути нужна ссылка на активную страницу в браузере. Изменено: Alexandr - 21.11.2020 12:40:08

Михаил Лебедев

Пользователь

Сообщений: 2895 Регистрация: 17.01.2013

21.11.2020 13:34:42

Цитата
БМВ написал: кто её открывает?

Цитата
Alexandr написал: я сам открываю

каков вопрос - таков ответ

Если Вы сами в IE открываете окно, то как об этом узнает ексель? Тем более, что в этот момент он не активен?

Для меня - загадка...

Изменено: Михаил Лебедев - 21.11.2020 13:37:56

Всё сложное - не нужно. Всё нужное - просто /М. Т. Калашников/

Alexandr

Пользователь

Сообщений: 7 Регистрация: 21.11.2020

21.11.2020 13:45:47

Михаил Лебедев, Книга эксель у меня открыта, я из нее и печатаю эти QR'ы,
Сейчас я открываю страницу (допустим яндекс), копирую ссылку на нее и вставляю в ячейку А1 открытой книги эксель, далее открываю следующую страницу (гугл например) копирую адрес и вставляю всё в ту же ячейку А1. к А1 привязан QR.

bigorq Пользователь Сообщений: 1165 Регистрация: 26.04.2018	#6 21.11.2020 14:01:33 Смотрите тему, там похожая задача, только ТС из 1С, Вы из браузера.

Alexandr Пользователь Сообщений: 7 Регистрация: 21.11.2020	#7 21.11.2020 14:04:24 bigorq,спасибо, но не то. Он по сути как занимался ctrl+c / ctrl+v так и занимается, просто вставляет в указанное место.

bigorq Пользователь Сообщений: 1165 Регистрация: 26.04.2018	#8 21.11.2020 14:08:19 А Вы ? Из Вашего описания, Вы копируете ссылки из адресной строки браузера в А1

Alexandr Пользователь Сообщений: 7 Регистрация: 21.11.2020	#9 21.11.2020 14:11:01 bigorq,да. По этому я и здесь) Ищу решение, каким образом в ячейку будет попадать ссылка на активное окно браузера.

DANIKOLA Пользователь Сообщений: 502 Регистрация: 17.08.2019	#10 21.11.2020 14:25:57 Здравствуйте. А если взять расширение для браузера, которое генерирует QR коды, и вообще обойтись без Excel? Как вам такой вариант? Прикрепленные файлы QR Code.png (40.27 КБ)

Ігор Гончаренко Пользователь Сообщений: 14576 Регистрация: 01.01.1970	#11 21.11.2020 14:28:29 вот это поворот.... Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!

Alexandr Пользователь Сообщений: 7 Регистрация: 21.11.2020	#12 21.11.2020 14:32:27 DANIKOLA, А не пойдет в экселе форма с данными заполненными, а в уголочке этот самый QR

БМВ

Модератор

Сообщений: 23333 Регистрация: 28.12.2016

Excel 2013, 2016

#13

21.11.2020 14:55:22

Код

 Set objShellWindows = CreateObject("Shell.Application").Windows
 For Each o In objShellWindows
 sURL = ""
 On Error Resume Next
 sURL = o.Document.Location
 On Error GoTo 0
 If sURL <> "" Then
    Debug.Print sURL
 End If
 Next

Как решить вопрос определения реально активного - не знаю. но если только одно окно и одна страница открыта - то сработает.

Изменено: БМВ - 21.11.2020 14:56:33

По вопросам из тем форума, личку не читаю.

Alexandr Пользователь Сообщений: 7 Регистрация: 21.11.2020	#14 21.11.2020 15:23:30 БМВ,спасибо! Но у меня вообще ничего не происходит

БМВ Модератор Сообщений: 23333 Регистрация: 28.12.2016 Excel 2013, 2016	#15 21.11.2020 15:28:59 А что было сделано, чтоб что-либо произошло? По вопросам из тем форума, личку не читаю.