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

Вход

Регистрация

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

 

= Мир MS Excel/Как составлять запросы в браузер из VBA - Мир MS Excel

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

Excel 2016
Добрый вечер!

Друзья, прошу помощи у вас, т.к. у самого не хватает мозгов разобраться.

Могли бы вы объяснить по какому принципу правильно составлять запросы в браузер через VBA для различных задач. На данный момент пытаюсь создать макрос, который будет отправлять сообщение "Текст" или "Файл" на сайт по типу телеграмма. Сайт Riot.im (Не реклама :)) Выложу файл при помощи которого пытаюсь что-либо сделать. Код в нём достал из просторов сети, но как он должен работать я понимаю. Данные выделенные комментариями у меня так же имеются, но вписать их не могу, по соображениям конфиденциальности. Эти данные доставал из браузера, путём нажатия кнопки F12 и просмотра там запросов, которые браузер отправляет.
К сообщению приложен файл: Riot.xlsm(14.7 Kb)
 
Ответить
СообщениеДобрый вечер!

Друзья, прошу помощи у вас, т.к. у самого не хватает мозгов разобраться.

Могли бы вы объяснить по какому принципу правильно составлять запросы в браузер через VBA для различных задач. На данный момент пытаюсь создать макрос, который будет отправлять сообщение "Текст" или "Файл" на сайт по типу телеграмма. Сайт Riot.im (Не реклама :)) Выложу файл при помощи которого пытаюсь что-либо сделать. Код в нём достал из просторов сети, но как он должен работать я понимаю. Данные выделенные комментариями у меня так же имеются, но вписать их не могу, по соображениям конфиденциальности. Эти данные доставал из браузера, путём нажатия кнопки F12 и просмотра там запросов, которые браузер отправляет.

Автор - Pillar
Дата добавления - 07.04.2018 в 18:31
InExSu Дата: Среда, 11.04.2018, 01:19 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 333
Репутация: 43 ±
Замечаний: 60% ±

Excel 2010
Привет!
Вот такой код у Вас работает:
[vba]
Код
Private Sub riot_im()
    'Нужно включать Microsoft HTML object klibrary
    Dim ie As Object, sURL As String
    sURL = "https://riot.im"
    ' Create InternetExplorer Object
    Set ie = CreateObject("InternetExplorer.Application")
    
    With ie
        .Visible = True
        .navigate sURL
    
    ' Wait while IE loading...
        Do While .Busy
            Application.Wait DateAdd("s", 1, Now)
        Loop
    End With

End Sub
[/vba]
?
 
Ответить
СообщениеПривет!
Вот такой код у Вас работает:
[vba]
Код
Private Sub riot_im()
    'Нужно включать Microsoft HTML object klibrary
    Dim ie As Object, sURL As String
    sURL = "https://riot.im"
    ' Create InternetExplorer Object
    Set ie = CreateObject("InternetExplorer.Application")
    
    With ie
        .Visible = True
        .navigate sURL
    
    ' Wait while IE loading...
        Do While .Busy
            Application.Wait DateAdd("s", 1, Now)
        Loop
    End With

End Sub
[/vba]
?

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

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