Как составлять запросы в браузер из VBA

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как составлять запросы в браузер из VBA (Макросы/Sub)

Pillar

Дата: Суббота, 07.04.2018, 18:31 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 3

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

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

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

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

К сообщению приложен файл: Riot.xlsm (14.7 Kb)

Ответить

InExSu

Дата: Среда, 11.04.2018, 01:19 | Сообщение № 2

Группа: Друзья

Ранг: Ветеран

Сообщений: 648

Репутация: 96 ±

Замечаний: 0% ±

Excel 2010, 365

Привет!
Вот такой код у Вас работает:
[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]
?

Разработчик Битрикс24 php, Google Apps Script, VBA Excel Windows/Mac

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как составлять запросы в браузер из VBA (Макросы/Sub)

Страница 1 из 1
1