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

Вход

Регистрация

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

 

= Мир MS Excel/Макрос обновления веб-страницы - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос обновления веб-страницы (Макросы/Sub)
Макрос обновления веб-страницы
ArkaIIIa Дата: Среда, 03.02.2016, 14:55 | Сообщение № 1
Группа: Проверенные
Ранг: Ветеран
Сообщений: 894
Репутация: 115 ±
Замечаний: 0% ±

2010
Уважаемые господа!

Подскажите, пожалуйста, код макроса обновления веб-страницы (например https://yandex.ru), при условии что она открыта в браузере (IE), с заданной периодичностью (например 3 секунды), с привязкой к кнопкам "старт", "стоп".
Или макросы так не работают?

Заранее спасибо!


Сообщение отредактировал ArkaIIIa - Среда, 03.02.2016, 15:00
 
Ответить
СообщениеУважаемые господа!

Подскажите, пожалуйста, код макроса обновления веб-страницы (например https://yandex.ru), при условии что она открыта в браузере (IE), с заданной периодичностью (например 3 секунды), с привязкой к кнопкам "старт", "стоп".
Или макросы так не работают?

Заранее спасибо!
Автор - ArkaIIIa
Дата добавления - 03.02.2016 в 14:55
ArkaIIIa Дата: Среда, 03.02.2016, 15:06 | Сообщение № 2
Группа: Проверенные
Ранг: Ветеран
Сообщений: 894
Репутация: 115 ±
Замечаний: 0% ±

2010
Скачать плагин для браузера, к сожалению, не вариант.
 
Ответить
СообщениеСкачать плагин для браузера, к сожалению, не вариант.
Автор - ArkaIIIa
Дата добавления - 03.02.2016 в 15:06
buchlotnik Дата: Среда, 03.02.2016, 15:29 | Сообщение № 3
Группа: Заблокированные
Ранг: Участник клуба
Сообщений: 3442
Репутация: 929 ±
Замечаний: 20% ±

2010, 2013, 2016 RUS / ENG
Можно типа [vba]
Код
Sub act()
AppActivate "Internet Explorer"
SendKeys "{F5}", True
End Sub
[/vba] ну и зациклить как вам необходимо
 
Ответить
СообщениеМожно типа [vba]
Код
Sub act()
AppActivate "Internet Explorer"
SendKeys "{F5}", True
End Sub
[/vba] ну и зациклить как вам необходимо
Автор - buchlotnik
Дата добавления - 03.02.2016 в 15:29
ArkaIIIa Дата: Среда, 03.02.2016, 15:59 | Сообщение № 4
Группа: Проверенные
Ранг: Ветеран
Сообщений: 894
Репутация: 115 ±
Замечаний: 0% ±

2010
buchlotnik
Да, это вполне подходит!
Извиняюсь, но я в VBA - 0. Вы не могли бы подсказать, как прописать периодичность обновления и кнопки "старт", "стоп" ?
 
Ответить
Сообщениеbuchlotnik
Да, это вполне подходит!
Извиняюсь, но я в VBA - 0. Вы не могли бы подсказать, как прописать периодичность обновления и кнопки "старт", "стоп" ?
Автор - ArkaIIIa
Дата добавления - 03.02.2016 в 15:59
buchlotnik Дата: Среда, 03.02.2016, 16:29 | Сообщение № 5
Группа: Заблокированные
Ранг: Участник клуба
Сообщений: 3442
Репутация: 929 ±
Замечаний: 20% ±

2010, 2013, 2016 RUS / ENG
Ну как-то так: [vba]
Код
Dim next_

Sub Start_()
    Update_
End Sub

Sub Stop_()
    On Error Resume Next
    Application.OnTime next_, "Update_", , False
End Sub

Sub Update_()
    AppActivate "Internet Explorer"
    SendKeys "{F5}", True
    next_ = Now + TimeValue("00:00:03")
    Application.OnTime next_, "Update_"
End Sub
[/vba]
К сообщению приложен файл: 8009163.xlsm (22.1 Kb)
 
Ответить
СообщениеНу как-то так: [vba]
Код
Dim next_

Sub Start_()
    Update_
End Sub

Sub Stop_()
    On Error Resume Next
    Application.OnTime next_, "Update_", , False
End Sub

Sub Update_()
    AppActivate "Internet Explorer"
    SendKeys "{F5}", True
    next_ = Now + TimeValue("00:00:03")
    Application.OnTime next_, "Update_"
End Sub
[/vba]
Автор - buchlotnik
Дата добавления - 03.02.2016 в 16:29
ArkaIIIa Дата: Среда, 03.02.2016, 16:33 | Сообщение № 6
Группа: Проверенные
Ранг: Ветеран
Сообщений: 894
Репутация: 115 ±
Замечаний: 0% ±

2010
buchlotnik
Большое спасибо! hands
 
Ответить
Сообщениеbuchlotnik
Большое спасибо! hands
Автор - ArkaIIIa
Дата добавления - 03.02.2016 в 16:33
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос обновления веб-страницы (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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