使用VBA选择HTML中的所有选项

Question

所以我试图使用VBA选择网站上的所有选项。选项有时会改变，但我想选择所有选项。

以下是选择菜单的html代码。

<select class="locationSelect" id="ReceiptLocations" multiple="multiple" name="ReceiptLocations" size="10"><option value="7">Bayhurst 1</option>
<option value="157">Union Parkway Belt</option>
<option value="260">Union SSMDA</option>
<option value="261">Union WDA</option>
<option value="244">Welwyn</option>
<option value="83343">Whitewood Receipt</option>
</select>

我目前在excel中的代码如下：

Sub extract()
    Dim oIE As Object
    Dim ohtml As HTMLDocument
    Dim objOption As Object

Set oIE = CreateObject("InternetExplorer.Application")
oIE.Navigate ("http://itbidfloors.transcanada.com/")
oIE.Visible = True


' Wait while IE loading
Do
    DoEvents
Loop Until oIE.ReadyState = 4


For Each objOption In oIE.Document.getElementsByClassName("locationSelect").getElementsByID("ReceiptLocations").Options
        objOption.Selected = True
Next

End Sub

我遇到的错误是对象不支持此属性或方法。我在这种情况下使用for循环，因为我想选择所有可用的选项。

我在这做错了什么？提前致谢

Answer 1

Sub extract()
    Dim oIE As Object
    Dim ohtml As HTMLDocument
    Dim objOption As Object

Set oIE = CreateObject("InternetExplorer.Application")
oIE.Navigate ("http://itbidfloors.transcanada.com/")
oIE.Visible = True


' Wait while IE loading
Do
    DoEvents
Loop Until oIE.ReadyState = 4


For Each objOption In oIE.Document.getElementsByClassName("locationSelect").getElementsByID("ReceiptLocations").Options
        objOption.Selected = True
Next

End Sub