如何使用MS Access VBA单击此HTML代码中的提交按钮(没有名称或ID)

时间:2013-11-25 05:56:48

标签: html vba ms-access

此HTML页面上的按钮没有名称或ID,因此我无法点击它。我已经扫描了之前的问题,但没有一个像我能看到的HTML那样。我没有包含整个页面,但这是我需要点击的按钮部分。

我使用MS Access 2010中的VBA来制作IE v8。如果它很容易(希望是这样),我仍然在学习道歉。如您所见,SUBMIT输入类型没有名称或ID。感谢。

</div>
<div id="container">
<div class="group">
    <div id="content">
    <div class="banner">
<h2>Welcome</h2>

<div id="search-box">
    <form method="get">
        <label for="criteria">Search</label>
        <input type="text" id="search" name="search" value="" maxlength="255" />
        <input type="submit" class="button" value="Search" />
    <p class="hint">Search by Order No. Service ID or Your reference ID</p>
    </form>

2 个答案:

答案 0 :(得分:2)

使用此:

Dim htmlButton
Set htmlButton = WebBrowser1.Document.GetElementByID("search-box").GetElementsByTagname("Input")(1)

'' Test to see if we got the right element. (Comment out or remove this line later)
MsgBox htmlButton.Value

'' Click that button
htmlButton.Click

答案 1 :(得分:1)

也许使用这样的东西:

Set tags = wb.Document.GetElementsByTagname("Input")

For Each tagx In tags
    If tagx.value = "Search" Then
        tagx.Click
        Exit For
    End If
Next

其中wb是WebBrowser控件。