あるWebサイトの折れ線グラフのデータを、ExcelVBAを使って表形式で取得したいのですが、エラーが出て上手くいきません。
私自身、VBAはそれなりにはできますが、スクレイピングは初めてです。
Web系の言語もあまり詳しくありません。
スクレイピング方法を調べると、htmlの<td>タグなどを取得すればよいとのことですが、ソースコードを見ても、欲しいデータが見つかりませんでした。(データベースがサーバーサイドにある?)
そこで、そのWebサイトの右上のメニューには、下記のように「CSV形式でダウンロード」する機能がついているので、それと同じ処理をSeleniumを使えばできるのではと考えました。
以下、VBAのコードとなります。
Sub sample() Dim Driver As New Selenium.WebDriver Dim elm As Selenium.WebElement Driver.Start "chrome", "url" Driver.Get "/" Driver.Window.Maximize '「ID」入力 Driver.FindElementByCss("#wrap-login > main > div > form > div:nth-child(3) > input").SendKeys "id" '「パスワード」入力:そのまま続けるとエラーとなるのでWait対応 Set elm = WaitForElement(Driver, "#wrap-login > main > div > form > div:nth-child(4) > input") If elm Is Nothing Then MsgBox "#wrap-login > main > div > form > div:nth-child(4) > input 見つかりません。" End End If If Not WaitForSendKeys(Driver, elm, "password") Then MsgBox "パスワードを入力できませんでした。" End End If '⓵「ログイン」 Driver.FindElementByCss("#wrap-login > main > div > form > button").Click '⓶「新しいページのウィンドが開かれる」 Driver.FindElementByCss("body > main > div > div.block-container.block-watchlist > div > dl:nth-child(2) > dt > a.btn-open-window").Click '⓷「ウィンドウの移動」 Driver.SwitchToNextWindow '⓸「csv出力」 Driver.FindElementByCss("#highcharts-t34kvuh-0 > div.highcharts-contextmenu > div > div:nth-child(4)").Click Stop '確認 Driver.Close Set Driver = Nothing End Sub
このコードを実行したところ、⓵~⓷までは上手くいくのですが、⓸「csv出力」のところで下記のようなエラーが出ます。
⓸のFindElementByCssの引数には、下の赤線のコードを「Copy selector」したものなのですが、先ほどの「Element not found for Css」のエラーが出てしまいます。
(ちなみに、⓸で右上メニューボタン以外のボタンの引数を試したところ、上手くいくものもありました。)
色々調べたのですが、解決策が見つかりませんでした。(javascriptが関係している?)
どなたかご教授いただければと思います。
よろしくお願いいたします。
回答1件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2020/10/29 10:30