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 

エラーは、オブジェクトは、このプロパティまたはメソッドをサポートしてdoesntのです。 私は利用可能なすべてのオプションを選択したいので、この場合はforループを使用しています。

私はここで間違っていますか？ oIE.Document.getElementByIDの各objOption（「ReceiptLocations」）については、事前に おかげ

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