WebBrowserでリストボックスの選択 (ID：84250)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

WebBrowserコントロールを使って。
自動的にあるページ（http://fx.sauder.ubc.ca/data.html）のボタンをおして次のページを開きたいのですが、
リストボックスのように表示されている（ソースでは<SELECT multiple・・・> ）になっている部分の選択がうまくいかず、次のページを開くことができません。
どのようにすればよいでしょうか、ご教授いただければ幸いです。

Private Sub Command2_Click()
                WebBrowser1.Navigate "http://fx.sauder.ubc.ca/data.html"
end sub 
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
        TargetMonth = 5
        TargetYear = 2004
        
        WebBrowser1.Document.getElementsByName("b").Item(0).Value = "USD"
        WebBrowser1.Document.getElementsByName("c").Item(0).Value = "EUR"
        WebBrowser1.Document.getElementsByName("rd").Item(0).Value = ""
        WebBrowser1.Document.getElementsByName("fd").Item(0).Value = "1"
        WebBrowser1.Document.getElementsByName("fm").Item(0).Value = TargetMonth
        WebBrowser1.Document.getElementsByName("fy").Item(0).Value = TargetYear
        WebBrowser1.Document.getElementsByName("ld").Item(0).Value = "31"
        WebBrowser1.Document.getElementsByName("lm").Item(0).Value = TargetMonth
        WebBrowser1.Document.getElementsByName("ly").Item(0).Value = TargetYear
        WebBrowser1.Document.getElementsByName("y").Item(0).Value = "daily"
        WebBrowser1.Document.getElementsByName("q").Item(0).Value = "price"
        WebBrowser1.Document.getElementsByName("f").Item(0).Value = "HTML"
        WebBrowser1.Document.getElementsByName("o").Item(0).Value = "T.C"
        WebBrowser1.Document.getElementsByTagName("INPUT").Item(6).Click

End Sub

←解決時は質問者本人がここをチェックしてください。

戻る