Excel VBA XMLHTTP - PullRequest
Новая
       8

Excel VBA XMLHTTP

0 голосов
/ 27 мая 2018

Я пытаюсь автоматически добавить некоторые вещи в свою корзину.Это должно работать, пока страница не переключится.Как я могу обновить HTML-код? 

Dim Page As New MSXML2.XMLHTTP60
Dim HTML As New MSHTML.HTMLDocument
Dim Btn As Object

Page.Open "GET", "https://www.amazon.de/gp/product/B00IPH78O6/ref=ox_sc_act_image_1?smid=A1JZY7TFGMYK57&psc=1", False
Page.send

HTML.body.innerHTML = Page.responseText
Set Btn = HTML.getElementById("add-to-cart-button")
Btn.Click

HTML.body.innerHTML = Page.responseText
Set Btn = HTML.getElementById("hlb-view-cart-announce")
Btn.Click

1 Ответ

0 голосов
/ 27 мая 2018

Попробуйте использовать selenium basic например, 

Option Explicit

Public Sub test()

    Dim d As WebDriver
    Set d = New ChromeDriver '<== You can change to other supported browsers e.g. IE, FireFox

    With d
         .Start "Chrome"
         .Get "https://www.amazon.de/gp/product/B00IPH78O6/ref=nav_signin?smid=A1JZY7TFGMYK57&psc=1&"
         .FindElementById("add-to-cart-button").Click
         .FindElementById("hlb-view-cart-announce").Click

         'Other stuff '<== Delete this line

         '.Quit
   End With

End Sub

Метод, который вы пытаетесь использовать в настоящее время, потребует, чтобы вы выдавали новые запросы, и при наличии метода, который вы могли бы реплицировать для навигации по разным страницам.,Вы можете попробовать мониторинг с помощью Fiddler или подобного инструмента, но я бы просто использовал Selenium.

...