Question

我正在尝试访问并在HTML表单的地址字段中输入文本字符串，然后单击“提交表单”按钮。我尝试使用：

Set ObjCollection = ObjIE.Document.getElementsByTagName("input")

但这不起作用，因为它只找到输入标签，我的输入字段似乎是列表的一部分。

这是HTML源代码，似乎是在Javascript中：

 <script type="text/javascript"

我正在尝试访问输入id =“addressID”并使用input type =“button”id =“SubmitForm”（第5行和第6行）提交：

<div id="searchbar">
  <form id="addressForm" action="#" onsubmit="" >
    <fieldset><legend>Locate address</legend>
        <ul class="formFields">
          <li><label for="address">Address</label><input id="addressID" size="60" class="text"      type="text" name="address" /></li>
          <li><input type="button" id="SubmitForm" value="Find address" class="form-button" /> </li>
       </ul>
   </fieldset>    
  </form>
  <form id="SolarViewForm" action="#"  id="sideseach">
   <fieldset><legend>Create SolarView</legend>
   <ul class="formFields">
   <li>
  <label for="latitude">Latitude</label>
  <input id="id_latitude" size="10" maxlength="30" type="text" name="latitude" />
</li>
<li>
  <label for="longitude">Longitude</label>
  <input id="id_longitude" size="10" maxlength="30" type="text" name="longitude" />
</li>
<li>
  <label for="zenith_angle">Panel tilt (degrees)-optional</label>
  <input id="id_zenith_angle" size="10" maxlength="30" type="text" name="zenith_angle" />
</li>
<li>
  <label for="azimuth_angle">Panel bearing (degrees)-optional</label>
  <input id="id_azimuth_angle" size="10" maxlength="30" type="text" name="azimuth_angle" />
</li>
<li>
  <label for="image_title">Image title</label>
  <input id="id_image_title" size="10" maxlength="30" type="text" name="image_title" />
</li>
<input type="hidden" name="_csrf_token" value="5e3de3851eafb868ee9f64e5ea1136e2" id="csrf_token"   />   <li><input type="button" id="create" class="form-button"
value="Create SolarView" /></li>

  </ul>
  </fieldset>
  </form>

   </div>

我想使用这种方法更新字段并单击按钮：

SiteAddress = ActiveSheet.Range("B3").Value & ", " & ActiveSheet.Range("B4").Value & ", " & ActiveSheet.Range("B5").Value

Set ObjCollection = ObjIE.Document.getElementsByTagName("input")

i = 0
While i < ObjCollection.Length
    If ObjCollection(i).Name = "address" Then

        ObjCollection(i).Value = SiteAddress

    Else
            If ObjCollection(i).Type = "button" And _
            ObjCollection(i).ID = "SubmitForm" Then

        Set objElement = ObjCollection(i)

        End If
    End If
    i = i + 1
Wend
    objElement.Click

我一直在尝试使用以下代码收集标记集合以循环遍历字段：

Set ObjCollection = ObjIE.Document.All.searchbar.getElementsByTagName("input")

我从一篇非常好的帖子中得到了这个想法：

VBS: target fields by div and tabIndex from external .vbs

我觉得它更接近于解决我的问题，尽管这仍然只能产生相同的结果：

Set ObjCollection = ObjIE.Document.getElementsByTagName("input")

对我来说问题的一大部分似乎并没有提出正确的问题，所以我花了很多时间试图找到这个问题的答案，我非常感谢你找到合适的答案。

Answer 1

如果要在地址文本框中输入文本，请使用：

IE.document.getElementById("addressID").Value = "test"

如果您想点击按钮，请使用：

IE.document.getElementById("SubmitForm").Click

至少那对我有用。让我知道它是怎么回事。

VBA：以HTML格式查找和更新输入字段

1 个答案: