Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/из эксель передать адрес на карту в интернете - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » из эксель передать адрес на карту в интернете (Макросы/Sub)
из эксель передать адрес на карту в интернете
Timofeev Дата: Вторник, 01.09.2020, 09:36 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Добрый день, просьба помочь с такой проблемой. Есть веб страница по адресу: http://map.mossvet.ru:51/#.
Необходимо по нажатию кнопки на форме (отправить адрес.xlsb) передать на вышеупомянутый сайт адрес из ячейки A1.
Необходимо обратиться к троеточию (клик по нему) в открывшемся поле передать данные из ячейки и сделать клик по одному из предложенных вариантов.
К сообщению приложен файл: 5929063.xlsb(38.6 Kb) · 1066607.png(268.9 Kb)
 
Ответить
СообщениеДобрый день, просьба помочь с такой проблемой. Есть веб страница по адресу: http://map.mossvet.ru:51/#.
Необходимо по нажатию кнопки на форме (отправить адрес.xlsb) передать на вышеупомянутый сайт адрес из ячейки A1.
Необходимо обратиться к троеточию (клик по нему) в открывшемся поле передать данные из ячейки и сделать клик по одному из предложенных вариантов.

Автор - Timofeev
Дата добавления - 01.09.2020 в 09:36
Timofeev Дата: Среда, 02.09.2020, 09:05 | Сообщение № 2
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Видимо надо писать в 13 сектор в игру "Что Где Когда"
 
Ответить
СообщениеВидимо надо писать в 13 сектор в игру "Что Где Когда"

Автор - Timofeev
Дата добавления - 02.09.2020 в 09:05
doober Дата: Четверг, 03.09.2020, 00:56 | Сообщение № 3
Группа: Друзья
Ранг: Ветеран
Сообщений: 662
Репутация: 255 ±
Замечаний: 0% ±

Excel 2010
Нет, с такой постановкой в сектор №6


 
Ответить
СообщениеНет, с такой постановкой в сектор №6

Автор - doober
Дата добавления - 03.09.2020 в 00:56
Timofeev Дата: Четверг, 03.09.2020, 08:11 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
спасибо за направление
 
Ответить
Сообщениеспасибо за направление

Автор - Timofeev
Дата добавления - 03.09.2020 в 08:11
Timofeev Дата: Четверг, 03.09.2020, 08:28 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
[vba]
Код
Sub Go_To_Site()
Dim fn$
Const BaseUrl$ = "http://map.mossvet.ru:51/"
With CreateObject("internetexplorer.application")
.navigate ""
.document.parentWindow.execScript "document.write(encodeURI('" & [A1] & "'))", "JavaScript"
GotoUrl .Application, BaseUrl & "AddressDetail.php?Address=" & .document.body.innertext
fn = "(" & .document.body.querySelector("tr").onclick & ")(0)"
GotoUrl .Application, BaseUrl
.document.parentWindow.execScript fn, "JavaScript"
.Visible = 1
End With
End Sub
Sub GotoUrl(ByRef ie As Object, url$, Optional timeout% = 5)
Dim t!
ie.navigate url
t = Timer
Do
DoEvents
If Timer - t >= timeout Then
MsgBox "Timeout!", 16
Stop
End If
Loop Until ie.ReadyState = 4
End Sub
[/vba]
Помогли очень для интернет эксплорер
Как сделать на весь экран открытие эксплорера
Возможно ли сделать под браузер Microsoft Edge?
 
Ответить
Сообщение[vba]
Код
Sub Go_To_Site()
Dim fn$
Const BaseUrl$ = "http://map.mossvet.ru:51/"
With CreateObject("internetexplorer.application")
.navigate ""
.document.parentWindow.execScript "document.write(encodeURI('" & [A1] & "'))", "JavaScript"
GotoUrl .Application, BaseUrl & "AddressDetail.php?Address=" & .document.body.innertext
fn = "(" & .document.body.querySelector("tr").onclick & ")(0)"
GotoUrl .Application, BaseUrl
.document.parentWindow.execScript fn, "JavaScript"
.Visible = 1
End With
End Sub
Sub GotoUrl(ByRef ie As Object, url$, Optional timeout% = 5)
Dim t!
ie.navigate url
t = Timer
Do
DoEvents
If Timer - t >= timeout Then
MsgBox "Timeout!", 16
Stop
End If
Loop Until ie.ReadyState = 4
End Sub
[/vba]
Помогли очень для интернет эксплорер
Как сделать на весь экран открытие эксплорера
Возможно ли сделать под браузер Microsoft Edge?

Автор - Timofeev
Дата добавления - 03.09.2020 в 08:28
Timofeev Дата: Четверг, 03.09.2020, 09:19 | Сообщение № 6
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
для гугл хром можно как-то приделать?
 
Ответить
Сообщениедля гугл хром можно как-то приделать?

Автор - Timofeev
Дата добавления - 03.09.2020 в 09:19
Мир MS Excel » Вопросы и решения » Вопросы по VBA » из эксель передать адрес на карту в интернете (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2020 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!