Form.Submit не проходит при использовании VBA

Question

Form.Submit не проходит при использовании VBA

5

У меня есть веб-страница, из которой я извлекаю данные. Я могу сделать все отлично с VBA, кроме нажатия на элемент изображения, который затем отправляет форму, и создается всплывающее окно с данными.

Один из атрибутов в элементе изображения называется "productguid" и имеет строковое value =

"a12-545".

HTML-код формы выглядит так, прежде чем я нажимаю на элемент изображения с помощью мыши.

<form id="GetProductQuantitiesForAccessibleBranches" action="GetProductQuantitiesForAccessibleBranches" method="post">
  <input type="hidden" name="ProductGuid" value="">
</form>

Это HTML-код ПОСЛЕ того, как я вручную нажимаю на него с помощью мыши:

<form id="GetProductQuantitiesForAccessibleBranches" action="GetProductQuantitiesForAccessibleBranches" method="post">
  <input type="hidden" name="ProductGuid" value="a12-545">
</form>

Исходя из этого, я предположил, что значение productguid от элемента изображения передается в форму до ее отправки. Вот что мой код VBA выглядит так:

'Change the input element value
ie.Document.getElementById("GetProductQuantitiesForAccessibleBranches").all.item(0).value = "a12-545"

'Submit the form
ie.Document.getElementyId("GetProductQuantitiesForAccessibleBranches").Submit

В соответствии с окном Locals все события Javascript Null. Обе строки кода запускаются без ошибок, но веб-страница не обновляется. Я что-то пропустил?

Я также попробовал просто щелкнуть элемент изображения с помощью метода .Click, но это тоже ничего не делает.

Веб-страница защищена паролем, поэтому я не могу публиковать этот URL публично.

UPDATE:

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

<img alt="View Quantities At Other Locations" src="/WebOrder/Images/CheckQtys.gif" 
title="View Quantities At Other Locations" class="popup" 
popupdirection="upperleft" popupwidth="380" 
popupcontent="#ProductQuantitiesForAccessibleBranches" 
onbeforepopupcreate="onBeforePopupCreate_GetProductQuantitiesForAccessibleBranches(this)" 
popupajaxformid="GetProductQuantitiesForAccessibleBranches" 
onbeforepopupajaxpost="onBeforePopupAjaxPost_GetProductQuantitiesForAccessibleBranches(this)" 
oncompletepopupajaxpost="onCompletePopupAjaxPost_GetProductQuantitiesForAccessibleBranches(this)" 
productguid="a12-545" 
displayitem="33902" 
brandguid="00000000-0000-0000-0000-000000000000" 
brandname="" brandsku="">

TheGuyOverThere 24 авг. 2016, в 00:20

Источник

0

Если значение элемента страницы изменяется в зависимости от события клика, я бы поспорил, что все события javascript не равны нулю. Объект IE может не показывать некоторые события по какой-то причине, но копание в этом javascript определенно станет ключом к пониманию происходящего. Изучите сценарии / события на странице самостоятельно, например, с помощью консоли dev вашего любимого браузера. Я также настоятельно рекомендую добавить теги javascript и / или dom, чтобы привлечь сюда некоторых экспертов.
Mikegrann 23 авг. 2016, в 22:15
0

О, хорошо, спасибо. Я устал от использования Chrome Dev, но мне трудно понять, на что я смотрю ... Если я нажимаю на вкладку "Сети", в столбце "Инициатор" я вижу скрипт, а затем при наведении на него курсора целый список разные вещи появляются. Что я должен делать с этой информацией?
TheGuyOverThere 23 авг. 2016, в 22:29
0

Чтобы установить значение что-то вроде: ie.Document.getElementById("GetProductQuantitiesForAccessibleBranches").getElementsbyName("ProductGuid")(0).Value=Whatever должно работать
Ryan Wildry 24 авг. 2016, в 18:12
0

Изменение значения хорошо, это делает это. Отправка является проблемой. Почтовый запрос просто не проходит.
TheGuyOverThere 24 авг. 2016, в 23:35
0

Если вы пытаетесь отправить форму, попробуйте: ie.Document.Forms("GetProductQuantitiesForAccessibleBranches").Submit
Ryan Wildry 26 авг. 2016, в 12:44
0

К сожалению, это тоже не работает. Строка работает нормально, ошибок нет, но действие отправки не проходит.
TheGuyOverThere 26 авг. 2016, в 14:26
0

Еще две мысли, после отправки формы, как показано выше, попробуйте запустить событие onSubmit. Что-то вроде ie.document.Forms("GetProductQuantitiesForAccessibleBranches").fireEvent("onSubmit") . Другая мысль заключается в создании запроса POST, похоже, что это может быть то, что делает форма при отправке. Смотрите это для начала stackoverflow.com/questions/158633/…
Ryan Wildry 26 авг. 2016, в 15:52
0

Если у вас есть кнопка отправки в форме, вы можете попробовать эту альтернативу: ie.Document.getElementById("SubmitButtonID").Click
Thomas G 27 авг. 2016, в 10:06
0

Я уже попробовал метод .Click .
TheGuyOverThere 29 авг. 2016, в 19:14
0

@TheGuyOverThere найти узел, где находится изображение. найти изображение в узле по tagName ("img") выполнить щелчок по этому изображению / Object -> дождаться перезагрузки ieObject -> это должно сработать ??
krish KM 31 авг. 2016, в 16:32
0

К сожалению, это не так. Это был мой первый подход
TheGuyOverThere 31 авг. 2016, в 22:51
1

Может ли это быть так же просто, как использовать submit () вместо Submit? Не уверен на 100% в том, как VBA отправляет команды JavaScript.
Steve 01 сен. 2016, в 01:38

Показать ещё 10 комментариев

Теги:

javascript

html

vba

dom

browser-automation

1 ответ

Ещё вопросы

Если значение элемента страницы изменяется в зависимости от события клика, я бы поспорил, что все события javascript не равны нулю. Объект IE может не показывать некоторые события по какой-то причине, но копание в этом javascript определенно станет ключом к пониманию происходящего. Изучите сценарии / события на странице самостоятельно, например, с помощью консоли dev вашего любимого браузера. Я также настоятельно рекомендую добавить теги javascript и / или dom, чтобы привлечь сюда некоторых экспертов.
О, хорошо, спасибо. Я устал от использования Chrome Dev, но мне трудно понять, на что я смотрю ... Если я нажимаю на вкладку "Сети", в столбце "Инициатор" я вижу скрипт, а затем при наведении на него курсора целый список разные вещи появляются. Что я должен делать с этой информацией?
Чтобы установить значение что-то вроде: ie.Document.getElementById("GetProductQuantitiesForAccessibleBranches").getElementsbyName("ProductGuid")(0).Value=Whatever должно работать
Изменение значения хорошо, это делает это. Отправка является проблемой. Почтовый запрос просто не проходит.
Если вы пытаетесь отправить форму, попробуйте: ie.Document.Forms("GetProductQuantitiesForAccessibleBranches").Submit
К сожалению, это тоже не работает. Строка работает нормально, ошибок нет, но действие отправки не проходит.
Еще две мысли, после отправки формы, как показано выше, попробуйте запустить событие onSubmit. Что-то вроде ie.document.Forms("GetProductQuantitiesForAccessibleBranches").fireEvent("onSubmit") . Другая мысль заключается в создании запроса POST, похоже, что это может быть то, что делает форма при отправке. Смотрите это для начала stackoverflow.com/questions/158633/…
Если у вас есть кнопка отправки в форме, вы можете попробовать эту альтернативу: ie.Document.getElementById("SubmitButtonID").Click
@TheGuyOverThere найти узел, где находится изображение. найти изображение в узле по tagName ("img") выполнить щелчок по этому изображению / Object -> дождаться перезагрузки ieObject -> это должно сработать ??
К сожалению, это не так. Это был мой первый подход
Может ли это быть так же просто, как использовать submit () вместо Submit? Не уверен на 100% в том, как VBA отправляет команды JavaScript.

Ryan Wildry · Answer 1 · 2016-09-01T02-55-00.000Z

Дайте этот снимок, я сомневаюсь, что это будет "идеальным" ответом без фактического просмотра сайта. Тем не менее, это должно найти правильный тег изображения, если у вас нет фреймов/фреймов (пожалуйста, проверьте, нет ли их), и нажмите его.

Public Sub Click_IMG_Tag()
    Dim Elements As Object
    Dim Element  As Object

    'Get a pointer to IE etc first, I'm assuming this is already done

    Set Elements = IE.Document.getElementsByTagName("img")

    For Each Element In Elements
        On Error Resume Next ' used to bypass elements that don't have .Title property
                             ' later, you should error handle this exception
        If Element.Title = "View Quantities At Other Locations" Then
            Element.Focus
            Element.Click
            Element.FireEvent ("OnClick")
            IELoad IE
            Exit For
        End If
    Next

End Sub

Public Sub IELoad(Browser As Object)
    While Browser.busy Or Browser.Readystate <> 4
        Application.Wait (Now() + TimeValue("00:00:01"))
        DoEvents
    Wend
End Sub

Я собирался ответить на что-то подобное. Однажды у меня возникла та же проблема, а затем мне пришлось пройтись по всем кнопкам и проверить, какая из них имеет определенный ярлык, а затем щелкнуть по ней. Это кажется мне отличным ответом. IE-автоматизация с vba - это боль в заднице в любом случае. хорошая работа!
Спасибо за попытку, я знаю, что вы потратили немало усилий, чтобы помочь мне понять это, но это также не работает. Код работает нормально, но веб-страница не обновляется. Я буквально полностью вне идей.
Ничего такого, что я вижу. Я могу взаимодействовать и извлекать информацию со страницы без каких-либо проблем. На каждой странице более 50 тегов <img> и каждый является частью строки, из которой я уже извлекаю данные