インターネットを操る2

Excel VBA のトップに戻る

Excel VBA 目次

TinySeleniumVBA

索引

TinySeleniumVBA

 Internet Explorer(IE) は、 2022 年 6 月 16 日にサポートが終了します。
サポート終了後に IE を起動しようとすると、Microsoft Edge が起動するよう変更されます。
このため、IE で動作するよう作成されたプログラムは、IE が表示されないので動かなくなります。

 そこで、ググって見つけた TinySeleniumVBA を紹介します。

ダウンロードと使い方
https://github.com/uezo/TinySeleniumVBA/blob/main/README.ja.md

操作方法の事例 Qiita
 Excel VBAでSeleniumBasicを使わずにスクレイピングする
https://qiita.com/uezo/items/66e20b064ffd5f239b9a

 TinySeleniumVBA(Chromium版Edge)を使用したWebアプリ操作
https://qiita.com/yaju/items/9d1f189a5d2118a3f4d3

1. Excelでマクロ用のファイルを作成して、下記をインポートします。
WebDriver.cls、WebElement.cls、Capabilities.cls、JsonConverter.bas

2. ブラウザのメジャーバージョンと同じバージョンの WebDriver
Edge: https://developer.microsoft.com/ja-jp/microsoft-edge/tools/webdriver/
Chrome: https://chromedriver.chromium.org/downloads
を、ダウンロードして、分かりやすいフォルダに登録します。
 私は、Microsoft Edge ドライバーを以下のパスに登録しました。
Driver.Edge "C:\Tool\msedgedriver\msedgedriver.exe"
(バージョン 97.0.1072.62 (公式ビルド) (64 ビット))


グーグルで検索するサンプル VBA をダウンロードできます。→TinySeleniumVBA02.xls

Option Explicit

'待ちD
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Public Sub Google検索()

   Dim 検索文字 As String
   検索文字 = Worksheets("Sheet1").Range("A2").value
   
    ' WebDriverの開始 (Edge)
    Dim Driver As New WebDriver
    'Driver.Edge "path\to\msedgedriver.exe"
    Driver.Edge "C:\Tool\msedgedriver\msedgedriver.exe"
    
    ' ブラウザを開く
    Driver.OpenBrowser
    
    ' Googleへ移動
    Driver.Navigate "https://www.google.co.jp/?q=selenium"

    ' 検索テキストボックスを取得
    Dim searchInput
    Set searchInput = Driver.FindElement(By.Name, "q")
    
    ' テキストボックスの値を取得
    Debug.Print searchInput.GetValue
    
    ' テキストボックスに値を入力
'    searchInput.SetValue "yomoda soba"
    searchInput.SetValue 検索文字
    
    DoEvents       ' Sleep しているときに、画面を書き換えできるように、OS に制御を渡す。
    Sleep (1000)
   
    ' 検索ボタンのクリック
    Driver.FindElement(By.Name, "btnK").Click
    
    ' 再読み込み - ヘルパーメソッドを提供していない場合でも、ドライバーコマンドを直接実行することができます
    Driver.Execute Driver.CMD_REFRESH
    
End Sub

この種類の目次に戻る↑ 索引へ↓ トップページに戻る


ホームページのトップに戻る