Html '；单击'；一个网站'；带excelvba的s按钮

我有一个脚本，我写的，我可以执行一个网站上的形式通过宏。我能够打开internet explorer并正确传递所有变量，但是当提交时，我有点不知所措

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

我有两个问题：

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

Dim IE作为对象
Set IE=新的InternetExplorer
可见=真实
浏览“somewebsite.com”
在忙的时候做
Do While IE.ReadyState 4:DoEvents:Loop
例如，Document.All（“resourceoption”）.Value=“项目”
即所有文件（“金额”）。价值=1
IE.Document.All（“priceper”）。值=99
在忙的时候做
Do While IE.ReadyState 4:DoEvents:Loop

---

上面的代码片段执行所需的任务

这是一个我没有开发的游戏。我将是唯一一个使用此表的人，它试图简化买卖流程，因为它非常笨重，需要通过当前界面点击大约20次。这在本质上不是恶意的，并且是为我的帐户硬编码的@dan的可能副本-这很接近，我一直在查看以前关于向网站传递数据的SO主题，但我遇到的问题是关于如何命名此元素。此链接（或我找到的任何其他链接）指向以这种方式命名的按钮

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