'нажмите кнопку веб-сайта с excel VBA

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

это элемент на веб-сайте я хочу нажать - это кнопка под названием «купить»

<input type="submit" name="submit" value="Buy">

У меня есть две проблемы:

1) я не знаю, как правильно ссылаться на это в VBA 2) есть кнопка рядом с ним, что будет выполнять продать (прямо противоположное тому, что я хочу сделать) и элементом для этого является:

<input type="submit" name="submit" value="Sell">

Кто-нибудь знает подходящий код, чтобы нажать кнопку «купить»?

вот мой код до сих пор:

Dim IE As Object 
Set IE = New InternetExplorer 
IE.Visible = True 
IE.Navigate "somewebsite.com" 

Do While IE.Busy: DoEvents: Loop 
Do While IE.ReadyState <> 4: DoEvents: Loop 
IE.Document.All("resourceoption").Value = "item" 
IE.Document.All("amount").Value = 1 
IE.Document.All("priceper").Value = 99 
Do While IE.Busy: DoEvents: Loop 
Do While IE.ReadyState <> 4: DoEvents: Loop

источник

2014-12-18 kamelkid2

это за игру, что я не развивается. я буду единственным, использующим этот лист, и это попытка упростить процесс покупки/продажи, поскольку он очень неуклюж и занимает около 20 кликов через текущий интерфейс. это не является вредоносным по своей природе и жестко запрограммировано для моей учетной записи – kamelkid2

возможного дубликата [VBA для ввода данных в режиме онлайн и отправки формы] (http://stackoverflow.com/questions/17409613/vba-to-enter-data-online-and -submit-form) – SQLMason

@dan - это близко, и я смотрел предыдущие темы SO при передаче данных на веб-сайт, но проблема, с которой я сталкиваюсь, касается способа определения имени этого элемента. Эта ссылка (или любые другие, которые я нашел) обращается к кнопке, названной таким образом – kamelkid2

With IE.document 

    Set elems = .getElementsByTagName("input") 
    For Each e In elems 

     If (e.getAttribute("value") = "Buy") Then 
      e.Click 
      Exit For 
     End If 

    Next e 

End With

выше фрагмент кода выполняет задание необходимо

источник

2014-12-18 15:39:10 kamelkid2

'нажмите кнопку веб-сайта с excel VBA

ответ

Смежные вопросы