【VBA】Seleniumリファレンス（逆引き）【まとめ】

初めまして。NakamuraBlog運営者の nkmrです。

selenium×VBAについてGoogle検索しても的外れなサイトが多かったので、
自分用のメモとして本記事を作成するに至りました。

ぜひブックマークをして利活用ください。

あと、新PC購入時にSeleniumのセットアップ方法を忘れていたので、
せっかくだから、そこから網羅的に書いています。

Nakamura

必要な箇所を飛び飛びでピックアップしてご利用くださいませ。

非表示にできる< 目次 >

VBAでSeleniumを利用するためのセットアップ

Selenium Basic をインストール

まずは以下の手順で PCに Selenium Basic をインストールしましょう。

step
1SeleniumBasicをダウンロード

GitHubの公式ページから「SeleniumBasic-2.0.9.0.exe」をダウンロードしましょう。

メモ：SeleniumBasicダウンロードURL

https://github.com/florentbr/SeleniumBasic/releases/tag/v2.0.9.0

step
2SeleniumBasicをインストール

ダウンロードした「SeleniumBasic-2.0.9.0.exe」をインストールしましょう。

ここでのポイント

SeleniumBasic がインストールされるフォルダURL（ディレクトリ情報）をメモっときましょう。

後ほど、すぐに利用します。

Nakamura

SeleniumBasicインストールHowTo

step
3SeleniumBasicがインストールされたフォルダを確認

インストールされた SeleniumBasicフォルダを開いて待機しておきましょう。

あとの工程で ChromeDriver の更新をしますが、その更新先がこのフォルダなので開いておきましょう。

Nakamura

SeleniumBasicフォルダ

ChromeDriverのセットアップ

step
1まずは利用中のChromeバージョンを確認

利用中のChromeバージョンに対応した ChromeDriver をダウンロードする必要があるため、まずは確認しましょう。

Chromeバージョン確認方法は以下の画像を参考にして下さい。

Nakamura

Chromeバージョン確認

はてな

◆質問◆
Chromeバージョンが「89.x.xxxx.xx」ってあるけど、xは何ですか？

◆回答◆
xの部分は、マイナーバージョンと呼びます。一方、記事内の89の箇所は メジャーバージョンと呼びます。
Chromeに限らず、EXCELでも、アプリのバージョン構成は「メジャーバージョン＋マイナーバージョン」で表現されることが多いです。

で、今回使用するのは メジャーバージョン なので、そこの箇所を記憶しておいてください。

step
2ChromeDriverをダウンロード

ダウンロートサイトから「Chrome Driver」をダウンロードしましょう。

この際の注意点は Chromeのメジャーバージョンに合った ChromeDriverをダウンロードしてください。

メモ：ChromeDriverダウンロードURL

https://chromedriver.chromium.org/downloads

ChromeDriverダウンロード

注意

Windows 64bit版のPCを利用している方も「chromedriver_win32.zip」をダウンロードしてください。

Windows 64bit用のChromeDriverは、現在存在しません。でも、問題なく動作するので安心してください。

step
3ダウンロードしたZipファイルを開き、SeleniumBasicのフォルダへ移す

SeleniumBasicフォルダ内に既に存在する「chromedriver.exe」を置き換える形で、
先ほどダウンロードした ChromeDriver を移し替えて下さい。

雑で申し訳ないですが、画像を参考にちゃちゃっとやっちゃいましょう。

Nakamura

ChromeDriver移し替え

あと少しで終わります。Seleniumのセットアップを完了させちゃいましょう。

Nakamura

VBE側-参照設定

最後に、EXCEL-VBE側の参照設定を更新しておきましょう。

ポイント

「Selenium Type Library」にチェックを入れて設定を完了させましょう。

この辺は、既に知っている人が多いと思いますので、割愛気味に説明しますね。
主に、画像を見てもらえれば直感的に分かってくれるかなと。

Nakamura

SeleniumのVBE参照設定

以上でSeleniumの設定は終了です。お疲れ様でした。
次項からは動作確認をしていきます。

Nakamura

Seleniumの動作検証

Yahooを表示してみる

伝統的な動作確認方法である「Yahoo!」のWebページを表示させてみましょう。

ここまででSeleniumをEXCEL-VBAで使用できる環境は整っています。

Nakamura

VBE上に新規プロシージャを作って、以下のコードをコピペしてください。

Sub Selenium動作検証_Yahoo表示()
  
 　'変数：driver でSelenium制御をしますよ宣言
 　Dim driver As New Selenium.ChromeDriver
 
     'Selenium利用時、ウィンドウサイズを最大化で開く初期設定
     driver.AddArgument "disable-gpu"
     driver.AddArgument "start-maximized"
    
    
     'SeleniumでChromeを使用する初期設定
     Call driver.Start("chrome")
     
     'YahooのURLを開く
     driver.Get ("https://yahoo.co.jp")
     
     
     'Seleniumの一時停止 （キーボード：F5を押せば処理再開して、自動でChromeが閉じます。）
     Stop
     
 
End Sub

Sub Selenium動作検証_Yahoo表示()

　'変数：driver でSelenium制御をしますよ宣言

　Dim driver As New Selenium.ChromeDriver

'Selenium利用時、ウィンドウサイズを最大化で開く初期設定

driver.AddArgument "disable-gpu"

driver.AddArgument "start-maximized"

'SeleniumでChromeを使用する初期設定

Call driver.Start("chrome")

'YahooのURLを開く

driver.Get ("https://yahoo.co.jp")

'Seleniumの一時停止（キーボード：F5を押せば処理再開して、自動でChromeが閉じます。）

Stop

End Sub

実行ボタン（またはF5キー）を押下すれば、Yahooの画面が出て止まっているはず。

Nakamura

この画面が出れば、動作確認はOKです。

この画面が表示されていればOK

Selenium動作検証_Yahoo画面

期待する画面は表示されましたでしょうか？

Nakamura

もし動作しなかったら後述する方法を試して見てください。

エラーが起きたら

実行環境は PCによってバラバラですから、もしかしたらエラーが発生するかもしれません。

PCを買い換えた時などは、僕も発生したりしました。

Nakamura

一応僕が経験したエラー内容と解決方法について後述しますね。

想定されるエラー内容

ChromeDriverのバージョンが、Chromeのメジャーバージョンと合致していない。
「実行時エラー ‘-2146232576(80131700)’ オートメーションエラーです。」　が表示される

エラー対処①：ChromeDriverのバージョンを確認しよう

ChromeDriverのバージョンとChromeブラウザのバージョンと不一致の可能性があります。

その場合、本記事内にある「ChromeDriverのセットアップ」を再度試してください。

Ctrl+F で「ChromeDriverのセットアップ」と入力すれば、直ぐに飛べます。

Nakamura

もしかしたら、読み飛ばしている人もいると思いますので、念のために記載しておきます。

ココに注意

ChromeDriverのバージョンを確認しよう。

エラー対処②：NET Frameworkをインストールしよう

もしかしたら、このような画面が表示されているかもしれません。

こんなエラー表示

【VBA】Seleniumのオートメーションエラーの解消方法

エラー文言：実行時エラー ‘-2146232576(80131700)’ オートメーションエラーです。

この場合の対処方法は、NET Framework をインストールすれば解決できるかもしれません。

僕は NET Framework をインストールしてエラー解消しました。

Nakamura

NET Framework のインストール方法は以下の記事にまとめてますので、こちらを参照ください。

: 【VBA】Seleniumのオートメーションエラー解消方法【画像説明】

続きを見る

簡単ですので、ささっとやってしまいましょう。

Nakamura

ココに注意

NET Frameworkが未インストールの可能性が有。

Seleniumコーディング時のひな形（★重要）※本記事利用の前提条件でもあり

さて、記事タイトル通りに、Seleniumリファレンス系に突入していきます。

若干、遠回りしましたがお許しくださいorz
筆者自身の備忘止めも兼ねており、ブックマークして利活用する予定で、
ちゃんとしたものを作りたく…。

Nakamura

本記事の読者の方は、ほぼ全員VBA開発者だと思うのでコーディング時にひな形を用意する有用性は説明不要かと思います。

筆者の場合は、以下のひな形を最低限 VBE-新規プロシージャに入れてから、コーディングを開始しています。

本記事紹介のリファレンスコードは、紹介する雛形をベースに説明していきます。

Nakamura

Seleniumコード作成時の雛形

Sub Seleniumコーディングひな形()
  
 '変数：driver でSelenium制御をしますよ宣言
 Dim driver As New Selenium.ChromeDriver
 
 
     'Selenium利用時、ウィンドウサイズを最大化で開く初期設定
     driver.AddArgument "disable-gpu"
     driver.AddArgument "start-maximized"
    
    
     'SeleniumでChromeを使用する初期設定
     Call driver.Start("chrome")
     
     '任意のURL
     driver.Get ("https:～")
    
 
End Sub

Sub Seleniumコーディングひな形()

'変数：driver でSelenium制御をしますよ宣言

Dim driver As New Selenium.ChromeDriver

'Selenium利用時、ウィンドウサイズを最大化で開く初期設定

driver.AddArgument "disable-gpu"

driver.AddArgument "start-maximized"

'SeleniumでChromeを使用する初期設定

Call driver.Start("chrome")

'任意のURL

driver.Get ("https:～")

End Sub

このコードって、動作検証の時と同じなのでは？

あ、はい。同じです。笑
あとは、後述するリファレンス内容をコピペしながら繋いでいくイメージですね。

Nakamura

参考：WindowsAPIも一緒に入れるケースがあります。

'Sleep機能を使うAPI
Private Declare Sub Sleep Lib "KERNEL32" (ByVal dwMilliseconds As Long)

1 2	'Sleep機能を使うAPI Private Declare Sub Sleep Lib "KERNEL32" (ByVal dwMilliseconds As Long)

WindowsAPIのSleep は使い慣れているので、一緒に入れるケースが多いですね。
Selenium自体にも Sleep機能と同等のwait というのがあるのですが、
慣れている Sleep を使用する方が多いので、この辺は好みって感じですね。

Nakamura

Seleniumリファレンス

要素の取得（単一系）：FindElementBy

ブラウザ操作を行うには、まずHTML要素を取得する必要があります。

FindElementメソッドを使用すると、HTML要素をWebElement型のインスタンスとして取得し、
取得した要素に対してクリックなどの動作を行うことができます。（もちろん、値の抽出も）

正直、○○型とかインスタンスとか知らなくても大丈夫です。
Seleniumは決まった型を使いまわすケースが大半なので。笑

Nakamura

メソッドは以下の通り。

FindElementメソッド

FindElementById
FindElementByCss
FindElementByTag
FindElementByName
FindElementByClass
FindElementByXPath
FindElementByLinkText
FindElementByPartialLinkText

使用例は以下のイメージ。

 　'◆◆◆：対応するHTML要素に書き換えてあげる。
    driver.FindElementById("◆◆◆").Click
    driver.FindElementByCss("◆◆◆").Click
    driver.FindElementByTag("◆◆◆").Click
    driver.FindElementByName("◆◆◆").Click
    driver.FindElementByClass("◆◆◆").Click
    driver.FindElementByXPath("◆◆◆").Click
    driver.FindElementByLinkText("◆◆◆").Click
    driver.FindElementByPartialLinkText("◆◆◆").Click

　'◆◆◆：対応するHTML要素に書き換えてあげる。

driver.FindElementById("◆◆◆").Click

driver.FindElementByCss("◆◆◆").Click

driver.FindElementByTag("◆◆◆").Click

driver.FindElementByName("◆◆◆").Click

driver.FindElementByClass("◆◆◆").Click

driver.FindElementByXPath("◆◆◆").Click

driver.FindElementByLinkText("◆◆◆").Click

driver.FindElementByPartialLinkText("◆◆◆").Click

◆◆◆に対応するHTML要素の記載ルールについては、別記事 ↓ にてまとめています。

: 【VBA×Selenimu】FindElementの記載ルール注意点【動かない人向け】

続きを見る

VBAのコーディングルールに則って記載する必要があるため、躓きポイントの1つです。
迷われたら上記の記事が解決の一助になると思いますので、どうぞ。

Nakamura

要素の取得（複数系）：FindElementsBy

HTML要素は1つとは限りません。

その場合は、FindElementsByメソッドを活用します。

基本的に DOM制御の場合、単一系まで割り切ってあげないといけないので、添え字を忘れないようにしましょう。

メソッドは以下の通り。

FindElementsメソッド

FindElementsByTag
FindElementsByName

※ByIDやByXPathなどについて、複数形はHTML構造上ありえないので除外

使用例は、以下のイメージ。

  '記入例
  
   '添え字を入れてあげる（意味：上から数えて1番目の◆◆◆をクリック）
    driver.FindElementsByName("◆◆◆")(0).Click

   '重ね掛けもできます（意味：上から数えて1番目の◆◆◆の★★★をクリック）
    driver.FindElementsByName("◆◆◆")(0).FindElementByName("★★★").Click

　　'ByTagとByNameを重ねることもできます。
　　driver.FindElementsByTag("◆◆◆").FindElementByName("★★★").Click

'記入例

'添え字を入れてあげる（意味：上から数えて1番目の◆◆◆をクリック）

driver.FindElementsByName("◆◆◆")(0).Click

'重ね掛けもできます（意味：上から数えて1番目の◆◆◆の★★★をクリック）

driver.FindElementsByName("◆◆◆")(0).FindElementByName("★★★").Click

　　'ByTagとByNameを重ねることもできます。

　　driver.FindElementsByTag("◆◆◆").FindElementByName("★★★").Click

大切なのは、Seleniumは重複するHTML要素を制御できないので、
必ずHTML要素は特定してあげましょう。。

Nakamura

この辺を極めていくと、ページによって増減するWebページ情報抽出にも対応できたりします。

正直、FindElementsBy は For Each と一緒に使う場面が多い思います。

'実はFindElement系はHTMLツリー構造が合っていれば重ねることができるよ。
Dim seObjs As selenium.WebElement
seObjs = driver.FindElementByID("●●").FindElementsByTag("▲▲")

'ForEachでHTML分析も出来るよ。
Dim seObj As selenium.WebElement
For Each seObj In seObjs '←seObjsは「FindElementsByTag」で複数形が格納されている。
    If seObj.text = "■ ■" then '←seObjはイメージとしてFindElementsByTag(n)でカウントアップしていく。
         Msgbox "■ ■があったよ！"       
         Exit For 'ForEachを終了させる
　　End if
Next

'実はFindElement系はHTMLツリー構造が合っていれば重ねることができるよ。

Dim seObjs As selenium.WebElement

seObjs = driver.FindElementByID("●●").FindElementsByTag("▲▲")

'ForEachでHTML分析も出来るよ。

Dim seObj As selenium.WebElement

For Each seObj In seObjs '←seObjsは「FindElementsByTag」で複数形が格納されている。

If seObj.text = "■ ■" then '←seObjはイメージとしてFindElementsByTag(n)でカウントアップしていく。

Msgbox "■ ■があったよ！"

Exit For 'ForEachを終了させる

　　End if

何を言っているか分からない人は、
ひとまず、単一系のFindElementByXPathでSelenium操作する方法を覚えましょう。
単一系のFindElementByXPathを利用する率が 90％以上（体感値）なので、
それだけでほぼ十分だったりします。
動的にHTML構造が変化する場面やTableタグを処理する場合に、複数形のFindElementsを使用する場面が多いので、それ以外は無視で良いかな、と。

Nakamura

URL遷移：get

指定のWebページへ遷移したい場合は、getメソッドを使用します。

メソッドは以下の通り。

getメソッド

driver.get("[URLを入力]")

使用例は、以下のイメージ。

     '任意のURL
     driver.Get ("https://yahoo.co.jp")

1 2	'任意のURL driver.Get ("https://yahoo.co.jp")

この辺は Selenium動作検証でも利用してましたね。

Nakamura

クリック：Click

Webページの要素をクリックしたい場合、Clickメソッドを使用します。（マウスのクリックと同じです。）

メソッドは以下の通り。

Clickメソッド

driver.FindElementByXPath("◆◆◆").Click

※◆◆◆：HTML要素（例：検索ボタンのXPathなど）

使用例は、以下のイメージ。

 ’使用例
　driver.FindElementByXPath("//*[@id=""ContentWrapper""]/section").Click

1 2	’使用例　driver.FindElementByXPath("//*[@id=""ContentWrapper""]/section").Click

Clickは直感的にも分かりやすいですね。

Nakamura

キー入力：SendKeys

Webページの要素に情報を入力したい場合、SendKyesメソッドを使用します。

メソッド…というより構文は以下の通り。

SendKyesメソッド

driver. FindElementByXPath("◆◆◆").SendKeys 文字列

※◆◆◆：HTML要素（例：検索用テキストボックスのXPathなど）

使用例は、以下のイメージ。

　　'記入例

　　'Yahooの検索用テキストボックスのXPathを利用
　　driver. FindElementByXPath("◆◆◆").SendKeys "hogehoge"


　　'ちなみに、EXCELの変数（String型）も利用できます。
    Dim moji As String
    moji = "hogehoge"
　　 driver. FindElementByXPath("◆◆◆").SendKeys moji  '←hogehogeが入力されます。

　　'記入例

　　'Yahooの検索用テキストボックスのXPathを利用

　　driver. FindElementByXPath("◆◆◆").SendKeys "hogehoge"

　　'ちなみに、EXCELの変数（String型）も利用できます。

Dim moji As String

moji = "hogehoge"

　　 driver. FindElementByXPath("◆◆◆").SendKeys moji '←hogehogeが入力されます。

VBAのString型変数でしたら、そのまま利用できますので便利ですよね。
Seleniumによる自動化の可能性をグッと広げてくれます。

Nakamura

特殊キー入力：EnterやTabなど

キーボード独自の「Enter」や「Tab」を使用したいケースが・・・きっとあるはず。

その場合、Selenium側に Keysクラスを用意してくれていますので、SendKeysメソッドに掛け合わせて利用します。

使用例は以下の形。

  '特殊キー入力方法
　'SeleniumでKeysクラスがあるので New KeysをKyに宣言してあげる必要がある。
　　　Dim ky As New Keys 

　　　'Enterを入力したい場合
　　　driver. FindElementByXPath("◆◆◆").SendKeys (ky.Enter) 

　　　'Tabを入力したい場合
 　　 driver. FindElementByXPath("◆◆◆").SendKeys (ky.Tab)

'特殊キー入力方法

　'SeleniumでKeysクラスがあるので New KeysをKyに宣言してあげる必要がある。

　　　Dim ky As New Keys

　　　'Enterを入力したい場合

　　　driver. FindElementByXPath("◆◆◆").SendKeys (ky.Enter)

　　　'Tabを入力したい場合

　　 driver. FindElementByXPath("◆◆◆").SendKeys (ky.Tab)

ココがポイント

Dim ky As New Keys の宣言をしないとクラスを利用できないので、必ず宣言しましょう。

ちなみに、確認できる Keysクラス内のメンバー情報は以下の通り。
理論上、SendKeys (ky.メンバー)の記載形式で使えるはず。
　※使えなかったらすみません。

Keysクラス（メンバー一覧）

Add
Alt
ArrowDown
ArrowLeft
ArrowRight
ArrowUp
Backspace
Cancel
clear
Command
Control
Decimal
Delete
Divide
Down
End
Enter
Equal
Escape
F1
F2
F3
F4
F5
F6
F7
F8
F9
F10
F11
F12
Help
Home
Insert
Left
LeftAlt
LeftControl
LeftShift
Meta
Multiply
Null
NumPad0
NumPad1
NumPad2
NumPad3
NumPad4
NumPad5
NumPad6
NumPad7
NumPad8
NumPad9
PageDown
PageUp
Pause
Return
Right
Semicolon
Separator
Shift
Space
Subtract
Tab
Up

Selenium作った人大変だったろうなぁ・・・。

Nakamura

入力情報消去：Clear

Webページの要素内で削除したい文字列がある場合、Clearメソッドを使用します。（既入力の検索情報など）

メソッドは以下の通り。

Clearメソッド

driver.FindElementByXPath("◆◆◆").Clear

※◆◆◆：HTML要素（例：検索ボックス欄のXPathなど）

使用例は、以下のイメージ。

　'入力情報消去
   driver. FindElementByXPath("//*[@id=""ContentWrapper""]/input").Clear

1 2	'入力情報消去 driver. FindElementByXPath("//*[@id=""ContentWrapper""]/input").Clear

Clear の意味通りなので、イメージ付きやすいですね。

Nakamura

ラジオボタンの選択：Click

Webページの要素でラジオボタンを選択したい場合、Clickメソッドを使用します。

メソッドは以下の通り。

Clickメソッド

driver.FindElementByXPath("◆◆◆").Click

※◆◆◆：HTML要素（例：ラジオボックスでクリックしたい箇所のXPath）

使用例は以下の通り。

　'使用例
　driver.FindElementByXPath("◆◆◆").Click

1 2	'使用例　driver.FindElementByXPath("◆◆◆").Click

Clickメソッド≒マウスのクリックとなりますので、
先ほどもClickメソッドは登場しましたが、
ラジオボタンの選択だったので再登場となります。

Nakamura

メモ

ちなみに、試してない（必要性を感じてない）ので未確認情報ですが、Clickメソッド以外でもラジオボタンの選択は出来ると思います。
HTMLでラジオボタン側にValue値が設定されていた場合、そのValue値をSendKeys だったりで送ってあげれば選択されるかなーと想像したり。。。

もし質問などあれば、Twitterやってますので、そこから気軽に聞いて下さい（ブログネタにもなるため歓迎）。

プルダウンの選択：AsSelect.SelectBy系

Webページの要素でプルダウンを選択したい場合、AsSelect.SelectBy系のメソッドを使用します。

メソッドは以下の通り。

AsSelect.SelectByメソッド

driver.FindElementByXPath("◆◆◆").AsSelect.SelectByValue ("★★★")
driver.FindElementByXPath("◆◆◆").AsSelect.SelectByIndex ("★★★")
driver.FindElementByXPath("◆◆◆").AsSelect.SelectByText ("★★★")

※◆◆◆：HTML要素（例：プルダウンのXPath）
※★★★：後述の使用例を参照してね。

使用例ですが、さすがにHTMLのダミー例を用意しないと説明が難儀になります。

HTML例

こちら↑のHTML例をベースに説明した、使用例が以下の通り。

例：プルダウンで"テスト3"を選択したい場合

例：プルダウンで"テスト3"を選択したい場合
  driver.FindElementByXPath("◆◆◆").AsSelect.SelectByValue ("test3")
  driver.FindElementByXPath("◆◆◆").AsSelect.SelectByIndex ("2") 
  driver.FindElementByXPath("◆◆◆").AsSelect.SelectByText ("テスト3")

例：プルダウンで"テスト3"を選択したい場合

driver.FindElementByXPath("◆◆◆").AsSelect.SelectByValue ("test3")

driver.FindElementByXPath("◆◆◆").AsSelect.SelectByIndex ("2")

driver.FindElementByXPath("◆◆◆").AsSelect.SelectByText ("テスト3")

使用例の方が分かりやすいと思いますので、
実際のコーディング例を見て理解を深めると良いと思います。

Nakamura

任意の時間-処理を止める：wait

Seleniumの動作が安定しない…などの理由で、任意の時間処理を停止させたい場合、waitメソッドを利用します。

メソッドは以下の通り。

waitメソッド

driver.wait 任意の時間（1000 で 1秒の意味となります）

使用例は以下の通り。

　'1秒止める
　　driver.wait 1000

　'60秒止める
　　driver.wait 60000

　'1秒止める

　　driver.wait 1000

　'60秒止める

　　driver.wait 60000

直感的に利用できるのが良いですね。個人的にはWindowAPIのSleepと併用しています。

Nakamura

ブラウザ情報の取得：window.title

ブラウザのウィンドウタイトルを取得する時に使用します。

driver.Window.Title

1	driver.Window.Title

使用例は以下の通り。

　'イミディエイトウィンドウで、WindowTitleを表示させる
　　Debug.Print driver.Window.Title

1 2	'イミディエイトウィンドウで、WindowTitleを表示させる　　Debug.Print driver.Window.Title

driver.Window.Title は文字列（String型）なので、VBAのMsgboxも利用可能です。

個人的には Seleniumで複数ウィンドウを操作する際に driver.Window.Title を使用します。
複数ウィンドウをスイッチする際に、スイッチ前のウィンドウに戻りたい時に WindowTitleで指定して戻ったりするので。

これについては、後述してますので「SwitchToWindowByTitle」のメモ欄を参照ください。

Nakamura

新規のウィンドウを制御対象にする：SwitchToNextWindow

Webページによっては、クリックした後に新規ウィンドウが出現します。

Seleniumは便利なもので「SwitchToNextWindow」を利用すれば、制御ウィンドウに切替を簡単に出来ます。

メソッドは以下の通り。

SwitchToNextWindowメソッド

driver.SwitchToNextWindow

使用例は以下の通り。

Sub Selenium_SwitchToNextWindow()
 
 
 '変数：driver でSelenium制御をしますよ宣言
 Dim driver As New Selenium.ChromeDriver
 
     'Selenium利用時、ウィンドウサイズを最大化で開く初期設定
     driver.AddArgument "disable-gpu"
     driver.AddArgument "start-maximized"
    
     'SeleniumでChromeを使用する初期設定
     Call driver.Start("chrome")
     
     '該当のURLを開く
     driver.Get ("https://～")
     
     '新規ウィンドウを出現させるボタンをクリック(◆◆◆：XPathは置き換えて下さい）
     driver.FindElementByXPath("◆◆◆").Click 
     
    '★driverオブジェクト内容が新規ウィンドウに置き換わる
     driver.SwitchToNextWindow
     
     'イミディエイトウィンドウで driverのタイトル名を確認
     Debug.Print driver.Window.Title

 
End Sub

Sub Selenium_SwitchToNextWindow()

'変数：driver でSelenium制御をしますよ宣言

Dim driver As New Selenium.ChromeDriver

'Selenium利用時、ウィンドウサイズを最大化で開く初期設定

driver.AddArgument "disable-gpu"

driver.AddArgument "start-maximized"

'SeleniumでChromeを使用する初期設定

Call driver.Start("chrome")

'該当のURLを開く

driver.Get ("https://～")

'新規ウィンドウを出現させるボタンをクリック(◆◆◆：XPathは置き換えて下さい）

driver.FindElementByXPath("◆◆◆").Click

'★driverオブジェクト内容が新規ウィンドウに置き換わる

driver.SwitchToNextWindow

'イミディエイトウィンドウで driverのタイトル名を確認

Debug.Print driver.Window.Title

End Sub

元々制御していた旧ウィンドウに戻りたい時は、次項の「SwitchToWindowByTitle」を参考にして下さい。

Nakamura

任意のウィンドウを制御対象にする：SwitchToWindowByTitle

Webページによっては、クリックした後に新規ウィンドウが出現します。

その場合、driverオブジェクトで制御するウィンドウを指定し直す必要があります。

「SwitchToWindowByTitle」を使用すれば、任意のウィンドウに制御をスイッチすることが可能。

メソッドは以下の通り。

SwitchToWindowByTitleメソッド

driver.SwitchToWindowByTitle（"◆◆◆"）

※◆◆◆：ウィンドウタイトル（※完全一致が必要）

注意点を先に述べると、スイッチ先のウィンドウタイトルは完全一致であることが必要です。

注意

スイッチ先のウィンドウタイトルは完全一致であることが必要。

例）Webページが「Yahoo! JAPAN」のウィンドウタイトルの場合

OK例：driver.SwitchToWindowByTitle（"Yahoo! JAPAN"）
NG例：driver.SwitchToWindowByTitle（"Yahoo"）

それを踏まえた上で、使用例を確認ください。

Sub Selenium_SwitchToWindowByTitle()
 
 '変数：driver でSelenium制御をしますよ宣言
 Dim driver As New Selenium.ChromeDriver
 
     'Selenium利用時、ウィンドウサイズを最大化で開く初期設定
     driver.AddArgument "disable-gpu"
     driver.AddArgument "start-maximized"
    
     'SeleniumでChromeを使用する初期設定
     Call driver.Start("chrome")
     
     '該当のURLを開く
     driver.Get ("https://～")
     
     '新規ウィンドウを出現させるボタンをクリック(◆◆◆：XPathは置き換えて下さい）
     driver.FindElementByXPath("◆◆◆").Click
     
    '★driverオブジェクト内容が新規ウィンドウに置き換わる
     driver.SwitchToWindowByTitle ("Yahoo! JAPAN")
     
     'イミディエイトウィンドウで driverのタイトル名を確認
     Debug.Print driver.Window.Title

 
End Sub

Sub Selenium_SwitchToWindowByTitle()

'変数：driver でSelenium制御をしますよ宣言

Dim driver As New Selenium.ChromeDriver

'Selenium利用時、ウィンドウサイズを最大化で開く初期設定

driver.AddArgument "disable-gpu"

driver.AddArgument "start-maximized"

'SeleniumでChromeを使用する初期設定

Call driver.Start("chrome")

'該当のURLを開く

driver.Get ("https://～")

'新規ウィンドウを出現させるボタンをクリック(◆◆◆：XPathは置き換えて下さい）

driver.FindElementByXPath("◆◆◆").Click

'★driverオブジェクト内容が新規ウィンドウに置き換わる

driver.SwitchToWindowByTitle ("Yahoo! JAPAN")

'イミディエイトウィンドウで driverのタイトル名を確認

Debug.Print driver.Window.Title

End Sub

ウィンドウタイトルは完全一致であることが必要ですので、気をつけてください。

Nakamura

ご参考までに

ウィンドウAとウィンドウBがあったとして、
それぞれを横断的に制御したい時、僕は以下の感じでやりくりしています。

解説はコード内のインラインコメントに入れてますので、よろしければどうぞ。

Sub Selenium_SwitchToNextWindowの実用イメージ()
 
 
 '変数：driver でSelenium制御をしますよ宣言
 Dim driver As New Selenium.ChromeDriver
 
 
 '★ 変数：ウィンドウA と ウィンドウBを作る
 Dim windowA As String
 Dim windowB As String
 
 
 
     'Selenium利用時、ウィンドウサイズを最大化で開く初期設定
     driver.AddArgument "disable-gpu"
     driver.AddArgument "start-maximized"
    
    
    
     'SeleniumでChromeを使用する初期設定
     Call driver.Start("chrome")
     
     '該当のURLを開く（ウィンドウAとする）
     driver.Get ("https://～")
     
     
     '★ウィンドウAのタイトル名を変数に格納
     windowA = driver.Window.Title
     
     
     'ウィンドウBを出現させるボタンをクリック(◆◆◆：XPathは置き換えて下さい）
     driver.FindElementByXPath("◆◆◆").Click
     
     
     '一旦、SwitchToNextWindowでウィンドウBに制御を移行させる
     driver.SwitchToNextWindow
     
     
     '★ウィンドウBのタイトル名を変数に格納
     windowB = driver.Window.Title
     
     
     
     '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
     'この段階で、windowAとwindowBにそれぞれ制御したいウィンドウタイトルが入ってる
     '
     '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
     
     '★状況に応じて、都度SwitchToWindowByTitleでdriverオブジェクトの制御対象をスイッチさせる
     
     'windowAを制御したい時
     driver.SwitchToWindowByTitle ("" & windowA & "")
       ''┗ 不安な人は、debug.printで正しくスイッチされているかタイトルを確認
         'Debug.Print driver.Window.Title
         
     'windowBを制御したい時
     driver.SwitchToWindowByTitle ("" & windowB & "")
       ''┗ 不安な人は、debug.printで正しくスイッチされているかタイトルを確認
         'Debug.Print driver.Window.Title


 
End Sub

Sub Selenium_SwitchToNextWindowの実用イメージ()

'変数：driver でSelenium制御をしますよ宣言

Dim driver As New Selenium.ChromeDriver

'★ 変数：ウィンドウA とウィンドウBを作る

Dim windowA As String

Dim windowB As String

'Selenium利用時、ウィンドウサイズを最大化で開く初期設定

driver.AddArgument "disable-gpu"

driver.AddArgument "start-maximized"

'SeleniumでChromeを使用する初期設定

Call driver.Start("chrome")

'該当のURLを開く（ウィンドウAとする）

driver.Get ("https://～")

'★ウィンドウAのタイトル名を変数に格納

windowA = driver.Window.Title

'ウィンドウBを出現させるボタンをクリック(◆◆◆：XPathは置き換えて下さい）

driver.FindElementByXPath("◆◆◆").Click

'一旦、SwitchToNextWindowでウィンドウBに制御を移行させる

driver.SwitchToNextWindow

'★ウィンドウBのタイトル名を変数に格納

windowB = driver.Window.Title

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'この段階で、windowAとwindowBにそれぞれ制御したいウィンドウタイトルが入ってる

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'★状況に応じて、都度SwitchToWindowByTitleでdriverオブジェクトの制御対象をスイッチさせる

'windowAを制御したい時

driver.SwitchToWindowByTitle ("" & windowA & "")

''┗ 不安な人は、debug.printで正しくスイッチされているかタイトルを確認

'Debug.Print driver.Window.Title

'windowBを制御したい時

driver.SwitchToWindowByTitle ("" & windowB & "")

''┗ 不安な人は、debug.printで正しくスイッチされているかタイトルを確認

'Debug.Print driver.Window.Title

End Sub

もっと良い方法があれば、そちらでも良いと思いますが、思いつかない・・・。

Nakamura

アラート表示の制御：SwitchToAlert（★New）

制御しているChromeブラウザでポップアップウィンドウが出現し、それを制御したい場合は、SwitchToAlertメソッドを使用します。

メソッドは以下の通り。

メソッド

driver.SwitchToAlert.Accept()　'※OKを押したい場合
driver.SwitchToAlert.Dismiss()　'※キャンセルを押したい場合

Sub Selenium_Close()

 '変数：driver でSelenium制御をしますよ宣言
 Dim driver As New Selenium.ChromeDriver
 
     'Selenium利用時、ウィンドウサイズを最大化で開く初期設定
     driver.AddArgument "disable-gpu"
     driver.AddArgument "start-maximized"
    
     'SeleniumでChromeを使用する初期設定
     Call driver.Start("chrome")
     
     '該当のURLを開く
     driver.Get ("https://～")
　     
　　’～～～～～ポップアップウィンドウが出現するまでの制御～～～～～

　　' OKを押す場合
　　driver.SwitchToAlert.Accept()

　　'' キャンセルを押す場合
　　'driver.SwitchToAlert.Dismiss()
 
End Sub

Sub Selenium_Close()

'変数：driver でSelenium制御をしますよ宣言

Dim driver As New Selenium.ChromeDriver

'Selenium利用時、ウィンドウサイズを最大化で開く初期設定

driver.AddArgument "disable-gpu"

driver.AddArgument "start-maximized"

'SeleniumでChromeを使用する初期設定

Call driver.Start("chrome")

'該当のURLを開く

driver.Get ("https://～")

　　’～～～～～ポップアップウィンドウが出現するまでの制御～～～～～

　　' OKを押す場合

　　driver.SwitchToAlert.Accept()

　　'' キャンセルを押す場合

　　'driver.SwitchToAlert.Dismiss()

End Sub

従来のDOM制御の場合、windowハンドルを取得して JavaScriptで制御しなければならずハードルが高かったですが、Seleniumだと1行で出来るからシンプルに凄いなーって思います。

Nakamura

最近、TwitterでSeleniumの問い合わせが多くあり、その中でもポップアップウィンドウの制御に苦戦している人がいらしましたので追加しました。

Nakamura

Webページ内-要素の存在確認：IsElementPresent

制御しているChromeブラウザ内で要素の存在確認をしたい場合は、IsElementPresent メソッドを使用します。

メソッドは以下の通り。

IsElementPresent メソッド

Boolean型（True/False)が戻り値

driver.IsElementPresent(myBy.XPath("◆◆◆"))
driver.IsElementPresent(myBy.ID("◆◆◆"))

※◆◆◆：HTML要素（XPathやIDなどで使い分ける）

IsElementPresentの戻り値は Boolean型です。

ポイント

対象の要素があればTrue 、要素がなければ False が返ります。

それを踏まえた使用例が以下の通り。

①Webロード待ちで使用するパターン

　　　’① Webロード待ち で使用するパターン
          '期待する要素があるか確認（ロード待ち）
           FWFlag = False
           Do
             FWFlag = driver.IsElementPresent(myBy.XPath("◆◆◆"))
             driver.Wait 1000
           Loop Until FWFlag = True

　　　’① Webロード待ちで使用するパターン

'期待する要素があるか確認（ロード待ち）

FWFlag = False

FWFlag = driver.IsElementPresent(myBy.XPath("◆◆◆"))

driver.Wait 1000

Loop Until FWFlag = True

②If分岐で使用するパターン

　　　'②If分岐 で使用するパターン
          If driver.IsElementPresent(myBy.XPath("◆◆◆")) Then
              'True時の処理を記載
          Else
              'False時の処理を記載
          End If

　　　'②If分岐で使用するパターン

If driver.IsElementPresent(myBy.XPath("◆◆◆")) Then

'True時の処理を記載

Else

'False時の処理を記載

End If

③Function化して要素確認 (応用)するパターン

'③Function化して要素確認 (応用)するパターン
'独自Function：XPathCertain

Sub 要素確認()
          If XPathCertain("◆◆◆") Then　'※1
              'True時の処理を記載
          Else
              'False時の処理を記載
          End If

　'※1：◆◆◆：XPathを記入
　'　　→ XPathが「//*[@id="eyebrow"]」だった場合、
　'　　　 ◆◆◆には「//*[@id=""eyebrow""]」と入れてあげる。
　'　　　 VBA記載ルールの"（ダブルクォーテーション）を追加することを忘れずに。


End Sub


'*******************************************************************************
'*
'*内容：Selenium操作における XPath要素の存在確認を行う。
'*
'*　理由：①根本的にHTML存在確認を行う方法が、IEのDOM制御とは違うため独自Functionで解決するのが目的
'*　　　　②Function化することで、コード可読性の向上も目的
'*
'* 　引数：Target ← XPathを入れる
'* 　戻り値:Boolean （対象XPathあればTrue、無ければFalse）
'*
'*******************************************************************************

Function XPathCertain(Target As String) As Boolean

    Dim XFlag As Boolean
      Dim c As Long
      Dim myBy As New By

      XFlag = False
      c = 0
      Do
         '10秒間-存在確認を行い、未確認なら変数XPathCertainにFalseを返す
            If driver.IsElementPresent(myBy.XPath("" & Target & "")) Then
                 XPathCertain = True '要素が見つかれば、XPathCertainの戻り値：True を返す。
                 Exit Function
           
            Else
                 driver.Wait 1000
                 c = c + 1
                 XFlag = False
            End If
           
           
      Loop Until c > 10   '10秒間リトライ

      '10秒間でFWFlagがFalse（なかった）場合、XPathCertainの戻り値：False となる。
      If Not (FWFlag) Then: XPathCertain = False

  '余談：もっと良いコーディング方法はあると思いますでカスタムしちゃってくださいorz
End Function

'③Function化して要素確認 (応用)するパターン

'独自Function：XPathCertain

Sub 要素確認()

If XPathCertain("◆◆◆") Then　'※1

'True時の処理を記載

Else

'False時の処理を記載

End If

　'※1：◆◆◆：XPathを記入

　'　　→ XPathが「//*[@id="eyebrow"]」だった場合、

　'　　　 ◆◆◆には「//*[@id=""eyebrow""]」と入れてあげる。

　'　　　 VBA記載ルールの"（ダブルクォーテーション）を追加することを忘れずに。

End Sub

'*******************************************************************************

'*内容：Selenium操作における XPath要素の存在確認を行う。

'*　理由：①根本的にHTML存在確認を行う方法が、IEのDOM制御とは違うため独自Functionで解決するのが目的

'*　　　　②Function化することで、コード可読性の向上も目的

'* 　引数：Target ← XPathを入れる

'* 　戻り値:Boolean （対象XPathあればTrue、無ければFalse）

'*******************************************************************************

Function XPathCertain(Target As String) As Boolean

Dim XFlag As Boolean

Dim c As Long

Dim myBy As New By

XFlag = False

c = 0

'10秒間-存在確認を行い、未確認なら変数XPathCertainにFalseを返す

If driver.IsElementPresent(myBy.XPath("" & Target & "")) Then

XPathCertain = True '要素が見つかれば、XPathCertainの戻り値：True を返す。

Exit Function

Else

driver.Wait 1000

c = c + 1

XFlag = False

End If

Loop Until c > 10 '10秒間リトライ

'10秒間でFWFlagがFalse（なかった）場合、XPathCertainの戻り値：False となる。

If Not (FWFlag) Then: XPathCertain = False

'余談：もっと良いコーディング方法はあると思いますでカスタムしちゃってくださいorz

End Function

ウィンドウを閉じる：Close

制御しているChromeブラウザを閉じたい場合は、Closeメソッドを使用します。

メソッドは以下の通り。

Closeメソッド

driver.Close
driver.Quit （※Closeで閉じれない時は、Quitでもいける）

そもそも、Seleniumは、動作が終了すれば、自動でブラウザを閉じてくれる仕様です。

なので、ライトな感じでSelenium自動化を狙う人にとっては知らなくても良い情報ですが、
一応使用例を紹介します。（Webエンジニアが自動テストする際は使用すると思いますし。）

Sub Selenium_Close()

 '変数：driver でSelenium制御をしますよ宣言
 Dim driver As New Selenium.ChromeDriver
 
     'Selenium利用時、ウィンドウサイズを最大化で開く初期設定
     driver.AddArgument "disable-gpu"
     driver.AddArgument "start-maximized"
    
     'SeleniumでChromeを使用する初期設定
     Call driver.Start("chrome")
     
     '該当のURLを開く
     driver.Get ("https://～")
     
     '★ウィンドウを閉じる
     driver.Close
     
 
End Sub

Sub Selenium_Close()

'変数：driver でSelenium制御をしますよ宣言

Dim driver As New Selenium.ChromeDriver

'Selenium利用時、ウィンドウサイズを最大化で開く初期設定

driver.AddArgument "disable-gpu"

driver.AddArgument "start-maximized"

'SeleniumでChromeを使用する初期設定

Call driver.Start("chrome")

'該当のURLを開く

driver.Get ("https://～")

'★ウィンドウを閉じる

driver.Close

End Sub

driverの制御対象がCloseされますので、SwitchToWindowByTitleを併用すれば任意のウィンドウもCloseすることが可能です。

Nakamura

参考：Web読込待ちの方法（Seleniumエラー時の約90％は解決できるはず）

seleniumの動作スピードが早すぎてエラーになることがあります。

大体の原因が「Web読込待ちを待たずに、Seleniumが次の動作を行い、該当の要素が表示されておらず、処理が実行できずにエラーに落ちる」というのが、体感値としては多いです。

そのような時は、Web読込待ちのコードを都度入れると良いです。

Nakamura

本記事内の IsElementPresent を利用したものとなり、以下の記事でも紹介しています。

: 【Selenium×VBA】Webブラウザをロード待ちする方法【コード有】

続きを見る

よろしければ、どうぞ。3分くらいで読めると思います。

Nakamura

ちなみに、selenium利用時のエラーは、90％くらい Web読込待ちに起因するものだと思っとります。

残りの10％は、適切なHTML要素が記載できないケースや、そもそものVBAコーディングが間違っているケースです。

エラー発生時の問題の切り分けをスムーズにするためにも、Web読込待ちのコーディングは忘れずにやっておくと、結果として効率的なツール開発ができます。

Nakamura

Selenium ←→ EXCELで情報を行き来させる方法

EXCEL→Seleniumへの情報入力

EXCELの情報を Selenium経由で Chromeブラウザに送る方法を紹介します。

【方法①：一回Clickメソッドを経由してSendkeyで、EXCELのA1セルの文字列を送る方法】
driver.FindElementByXPath("◆◆◆").Click
driver.SendKeys Range("A1")
【方法②：直にSendkeyで、EXCELのA1セルの文字列を送る方法】
driver.FindElementByXPath("◆◆◆").SendKeys Range("A1")
【方法③：変数（String型）を送る方法】
Dim moji As String
moji = "hogehoge"
driver.FindElementByXPath("◆◆◆").SendKeys moji

　
※◆◆◆：HTML要素（例：検索用テキストボックスのXPathなど）

具体的な使用例は以下の通り。

Sub EXCEL情報をSeleniumで情報入力()
 
 '変数：driver でSelenium制御をしますよ宣言
 Dim driver As New Selenium.ChromeDriver
 
     'Selenium利用時、ウィンドウサイズを最大化で開く初期設定
     driver.AddArgument "disable-gpu"
     driver.AddArgument "start-maximized"
    
     'SeleniumでChromeを使用する初期設定
     Call driver.Start("chrome")
     
     'YahooのURLを開く
     driver.Get ("https://yahoo.co.jp")
     
     
     
     '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
     'Yahooの検索ボックスのXPathを対象に説明
     '
     '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
     
     '方法①：一回Clickメソッドを経由してSendkeyで、EXCELのA1セルの文字列を送る方法
     driver.FindElementByXPath("//*[@id=""ContentWrapper""]/header/section[1]/div/form/fieldset/span/input").Click
     driver.SendKeys Range("A1")
     
     
     '方法②：直にSendkeyで、EXCELのA1セルの文字列を送る方法
     driver.FindElementByXPath("//*[@id=""ContentWrapper""]/header/section[1]/div/form/fieldset/span/input").SendKeys Range("A1")
     
  
     '方法③：変数（String型）を送る方法
     Dim moji As String
     moji = "hogehoge"
     driver.FindElementByXPath("//*[@id=""ContentWrapper""]/header/section[1]/div/form/fieldset/span/input").SendKeys moji
      
 
End Sub

Sub EXCEL情報をSeleniumで情報入力()

'変数：driver でSelenium制御をしますよ宣言

Dim driver As New Selenium.ChromeDriver

'Selenium利用時、ウィンドウサイズを最大化で開く初期設定

driver.AddArgument "disable-gpu"

driver.AddArgument "start-maximized"

'SeleniumでChromeを使用する初期設定

Call driver.Start("chrome")

'YahooのURLを開く

driver.Get ("https://yahoo.co.jp")

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'Yahooの検索ボックスのXPathを対象に説明

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'方法①：一回Clickメソッドを経由してSendkeyで、EXCELのA1セルの文字列を送る方法

driver.FindElementByXPath("//*[@id=""ContentWrapper""]/header/section[1]/div/form/fieldset/span/input").Click

driver.SendKeys Range("A1")

'方法②：直にSendkeyで、EXCELのA1セルの文字列を送る方法

driver.FindElementByXPath("//*[@id=""ContentWrapper""]/header/section[1]/div/form/fieldset/span/input").SendKeys Range("A1")

'方法③：変数（String型）を送る方法

Dim moji As String

moji = "hogehoge"

driver.FindElementByXPath("//*[@id=""ContentWrapper""]/header/section[1]/div/form/fieldset/span/input").SendKeys moji

End Sub

この辺の情報が、Google検索しても正しい情報が出てこなかったりしたので、メモ書きを残しておきます。

Nakamura

Selenium→ EXCLE への情報入力

SeleniumからEXCELへ情報入力する方法も紹介します。

【方法①：直接EXCELへ情報抽出する方法】
Range("A1") = driver.FindElementByXPath("◆◆◆").Text
【方法②：変数（String型）を経由してEXCELへ情報入力する方法】
Dim moji As String
moji = driver.FindElementByXPath("◆◆◆").Text
Range("A1") = moji
参考：Value値なども抽出可能
Range("A1") = driver.FindElementByXPath("◆◆◆").value

　
※◆◆◆：HTML要素（例：抽出したいXPathなど）

使用例を紹介しますね。

Sub SeleniumからEXCELへ情報入力()
 
 
 '変数：driver でSelenium制御をしますよ宣言
 Dim driver As New Selenium.ChromeDriver
 
     'Selenium利用時、ウィンドウサイズを最大化で開く初期設定
     driver.AddArgument "disable-gpu"
     driver.AddArgument "start-maximized"
    
    
     'SeleniumでChromeを使用する初期設定
     Call driver.Start("chrome")
     
     
     'YahooのURLを開く
     driver.Get ("https://yahoo.co.jp")
     
     
     
     '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
     'Yahooの適当なテキスト情報のXPathを対象に説明
     '
     '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
     
     '方法①：直接EXCELへ情報抽出する方法
     Range("A1") = driver.FindElementByXPath("//*[@id=""tabpanelTopics1""]/div/div[1]/p/span").Text
    
     
     
     '方法②：変数（String型）を経由してEXCELへ情報入力する方法
     Dim moji As String
     moji = driver.FindElementByXPath("//*[@id=""tabpanelTopics1""]/div/div[1]/p/span").Text
     Range("A2") = moji
     
 
End Sub