【VBA×Selenium】指定の場所(Xpath)までスクロールする方法について

みなさんこんにちは。

Webスクレピングで特定のボタンをクリックする際、

Xpathを正しくしているにもかかわらず、クリック時にエラーになるときはありませんか？

実際デバッグしながら処理を確認すると、

画面上にそのボタンが表示される個所までスクロールすると

クリック動作が正常に行われ、

画面上に表示されていない状態だとエラーになる現象が稀に発生します。

今回は、指定したXpathの場所までスクロールする方法についてご紹介します。

この記事はこんな人におすすめ

この記事はこんな人におすすめです！

VBAプログラミング：初級者～中級者
Webスクレイピング:初級者～中級者
コードだけサクッと取得したい人
効率の良いコードを書きたい人

といったところでしょうか。

Seleniumに関する過去の記事

Seleniumに関する小ワザやテクニック、Xpathに関する処理については過去の記事でもご紹介しております。

【VBA×Selenium】Webで取得したデータの「＆nbsp;」を削除する方法

【Excel/VBA】ステータスバーを自作する方法

【Excel/VBA】プログレスバーを自作する方法

今回の記事を読むメリット

指定の場所(Xpath)までスクロールする方法を知るメリットは以下の通りです。

予期せぬエラーの回避
Webスクレイピングの基本が定着する
画面スクロールのコード取得

といったところでしょうか。

スクレイピングを数多く実施していると誰しもが経験擦るカベかと思います。

且つ忘れたころに直面するかと思いますので、

一度やり方を覚えてしまえばかなり有効的なスキルになるかと思います。

Web要素が画面真中になる様にスクロールするコード

JavaScriptでキャッチしたWeb要素が画面の真中に映る様にスクロールする構文を紹介します。

サンプルコードは以下の通りです。

'/////////////////////////////////////////////////////////
' 指定した場所(Xpath)を画面中央に表示する_その②
'/////////////////////////////////////////////////////////
Private Sub Scroll_Center()
    Dim elm As selenium.WebElement
    Dim drv As New ChromeDriver
    With drv
        .Get "ここに参照したいサイトのURLを入力"
        .Window.Maximize
        Set elm = .FindElementByXPath("ここに表示したい要素のXpathを入力")
        Call ScrollIntoViewCenter(elm)
        Stop
        .Quit
    End With
End Sub

'/////////////////////////////////////////////////////////
' 指定した場所(Xpath)を画面中央に表示する
'/////////////////////////////////////////////////////////
Private Function ScrollIntoViewCenter(element As WebElement)
    Const JS_SCROLL_CENTER = _
        "this.scrollIntoView(true);" & _
        "var y = (window.innerHeight - this.offsetHeight) / 2;" & _
        "if (y < 1) return;" & _
        "for (var e=this; e; e=e.parentElement) {" & _
        "  if (e.scrollTop == 0) continue;" & _
        "  var yy = Math.min(e.scrollTop, y);" & _
        "  e.scrollTop -= yy;" & _
        "  if ((y -= yy) < 1) return;" & _
        "}" & _
        "window.scrollBy(0, -y);"
  
    element.ExecuteScript JS_SCROLL_CENTER
End Function