使用excel VBA点击网站的按钮 [英] 'click' a website's button with excel VBA

查看:430
本文介绍了使用excel VBA点击网站的按钮的处理方法,对大家解决问题具有一定的参考价值,需要的朋友们下面随着小编来一起学习吧!

问题描述

我有一个我正在写的脚本,我可以通过宏在网站上执行一个表单。我可以打开互联网浏览器,并正确传递所有的变量,但是当它提交的时候,我有点迷失了。



这是网站上的元素我想点击 - 它是一个标题为购买的按钮

 < input type =submitname =submit值= 购买 > 

我有两个问题:



1 )我不知道如何正确地引用这个在vba
2)它旁边有一个按钮,将执行一个卖(完全相反的我想做的),其元素是:

 < input type =submitname =submitvalue =Sell>有没有人知道适当的代码来点击购买按钮?




这是我的代码到目前为止:

  Dim IE As Object 
Set IE = New InternetExplorer
IE.Visible = True
IE.Navigatesomewebsite.com

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


解决方案

 与IE.document 

设置elems = .getElementsByTagName(input)
对于每个e在elems

如果(e.getAttribute(value )=Buy)然后
e.Click
退出
结束如果

下一步e

结束

上述代码段执行所需的任务


I have a script I am writing where I can execute a form on a website through a macro. I am able to open up internet explorer and pass all the variables correctly however when it comes time to submit, I am a bit lost.

this is the element on the website i want to click - it is a button titled "buy"

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

I have two problems:

1) i don't know how to properly reference this within vba 2) there is a button right next to it that will perform a sell (the exact opposite of what i want to do) and the element for that is:

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

Does anyone know appropriate code to hit the 'buy' button?

here is my code thus far:

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

解决方案

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

the above snippet performs the task needed

这篇关于使用excel VBA点击网站的按钮的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!

查看全文
登录 关闭
扫码关注1秒登录
发送“验证码”获取 | 15天全站免登陆