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

Вход

Регистрация

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

 

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

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос обновления веб-страницы (Макросы/Sub)
Макрос обновления веб-страницы
ArkaIIIa Дата: Среда, 03.02.2016, 14:55 | Сообщение № 1
Группа: Проверенные
Ранг: Ветеран
Сообщений: 864
Репутация: 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
Группа: Проверенные
Ранг: Ветеран
Сообщений: 864
Репутация: 115 ±
Замечаний: 0% ±

2010
Скачать плагин для браузера, к сожалению, не вариант.
 
Ответить
СообщениеСкачать плагин для браузера, к сожалению, не вариант.

Автор - ArkaIIIa
Дата добавления - 03.02.2016 в 15:06
buchlotnik Дата: Среда, 03.02.2016, 15:29 | Сообщение № 3
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2627
Репутация: 750 ±
Замечаний: 0% ±

2010, 2013, 2016 RUS / ENG
Можно типа [vba]
Код
Sub act()
AppActivate "Internet Explorer"
SendKeys "{F5}", True
End Sub
[/vba] ну и зациклить как вам необходимо


платная помощь:
ЯД: 410012595572239; WM: 311017577133
buchlotnik@mail.ru
 
Ответить
СообщениеМожно типа [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
Группа: Проверенные
Ранг: Ветеран
Сообщений: 864
Репутация: 115 ±
Замечаний: 0% ±

2010
buchlotnik
Да, это вполне подходит!
Извиняюсь, но я в VBA - 0. Вы не могли бы подсказать, как прописать периодичность обновления и кнопки "старт", "стоп" ?
 
Ответить
Сообщениеbuchlotnik
Да, это вполне подходит!
Извиняюсь, но я в VBA - 0. Вы не могли бы подсказать, как прописать периодичность обновления и кнопки "старт", "стоп" ?

Автор - ArkaIIIa
Дата добавления - 03.02.2016 в 15:59
buchlotnik Дата: Среда, 03.02.2016, 16:29 | Сообщение № 5
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2627
Репутация: 750 ±
Замечаний: 0% ±

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(22Kb)


платная помощь:
ЯД: 410012595572239; WM: 311017577133
buchlotnik@mail.ru
 
Ответить
СообщениеНу как-то так: [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
Группа: Проверенные
Ранг: Ветеран
Сообщений: 864
Репутация: 115 ±
Замечаний: 0% ±

2010
buchlotnik
Большое спасибо! hands
 
Ответить
Сообщениеbuchlotnik
Большое спасибо! hands

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

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