Проблема извлечения данных сборов с веб-сайта - PullRequest
0 голосов
/ 22 апреля 2019

Я сталкиваюсь с проблемой, когда пытаюсь нажать кнопку в VBA / HTML.Когда я вводю данные в текстовое поле, я нажимаю кнопку ввода или кнопку «Поиск», но кнопка не работает.Пожалуйста, помогите Большое спасибо

Веб-сайт: https://sellercentral.amazon.fr/fba/profitabilitycalculator/index?lang=en_GB

Мой код VBA:

Set IEDoc = IE.document
Set DOCelement = IEDoc.getElementById("search-string")
DOCelement.Value = "5010993370528"

Set DOCelement = IEDoc.getElementById("a-autoid-1")
DOCelement.submit

введите описание изображения здесь

введите описание изображения здесь

Ответы [ 2 ]

0 голосов
/ 23 апреля 2019

приведенный ниже код опробован и протестирован в IE11

Sub amazon()
    On Error GoTo Errors
        Dim ie As Object
        Set ie = CreateObject("InternetExplorer.Application")
        ie.navigate "https://sellercentral.amazon.fr/fba/profitabilitycalculator/index?lang=en_GB"
        ie.Visible = True
        Application.Wait Now + #12:00:05 AM#

        Set IEDoc = ie.document
        Set DOCelement = IEDoc.getElementById("search-string")
        DOCelement.Focus
        DOCelement.Click
        Application.Wait Now + #12:00:01 AM#
        DOCelement.Value = "5010993370528"

        Set DOCelement = IEDoc.getElementById("a-autoid-1").getelementsbytagname("input")(0)
        DOCelement.Click
        Application.Wait Now + #12:00:05 AM#
Errors:
        MsgBox Err.Description
End Sub

Фокус и щелчок необходимы, в противном случае текст отображается серым цветом

0 голосов
/ 22 апреля 2019

Спасибо, Танмей, но все равно не работает. Этот код работает так же, но страница не заряжается. Я положил это:

Set IEDoc = IE.document
Set DOCelement = IEDoc.getElementById("search-string")
DOCelement.Value = "5010993370528"

Set DOCelement = IEDoc.getElementById("search-form")
DOCelement.submit

Я предполагаю, что есть скрытая область. Спасибо за вашу помощь

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...