ExcelVBAでJavaScriptを動作させたいのですが、動きません。

Question

ExcelVBAでWebスクレイピングをしようと思っておりまして、ブラウザはIEではなくMicrosoft Edgeを想定しています。
すでにSeleniumBasicをインストールしておりまして、あるサイトにおいてプルダウンメニューやテキストボックスにデータを入力し、ボタンを押すというところをプログラムの中で行おうとしています。

Option Explicit

Public Sub WebScraping()
    'Webドライバ関連
    Dim pid As Long
    Dim pno As Long: pno = 17556
    
    'JavaScript関連
    Dim js As Object
    Set js = CreateObject("ScriptControl")
    js.Language = "JScript"
    
    'Webドライバ起動
    pid = StartEdgeDriver(PortNo:=pno)
    If pid = 0 Then Exit Sub
    
    ' ブラウザ（MicrosoftEdgeにて処理）
    With CreateObject("Selenium.WebDriver")
        
        'MicrosoftEdge呼出し
        .StartRemotely "http://localhost:" & pno & "/", "MicrosoftEdge"
        
        'URLを指定
        .Get "目的のサイトURL"
        
        Dim func As Object
        Set func = js.Eval("(function () { document.getElementByClass('mat-select-value').selectedIndex = 13; });")
        
        Debug.Print func
    End With
    
    TerminateEdgeDriver pid

まずは、プルダウンメニューのクラス名を指定し、その値を取得してDebug.Printで表示しようとしているのですが、以下のエラーが起こります。

実行時エラー'424':
オブジェクトが必要です。

ブラウザ(Microsoft Edge）は起動され、目的のサイト表示まではされるのですが、以降の処理でエラーが起きてしまいます。
デバッグをしたところ、上記プログラムの「Set func～」の行でエラーが起きていることがわかります。オブジェクトはその上の「Dim func As Object」と宣言しているのですが、これだけでは無効となるようです。

どのようにすれば、オブジェクトが有効となるのでしょうか。
また、JavaScriptもあまり詳しくはないので、Set func の右についても誤りがあるかもしれませんので、そのあたりも詳しく教えていただけないでしょうか。

JavaScriptを使わずに、VBAからプルダウンメニューやテキストボックス、ボタンなどを操作できる方法がありましたら、そちらも教えていただけるとありがたいです。

よろしくお願い致します。

Answer 1

SeleniumBasic は触ったことは無いですが、明らかにおかしい箇所について。

    Dim js As Object
    Set js = CreateObject("ScriptControl")

上記のものは今回やりたいことには一切関係ないはずです。

「VBAでJavaScriptを使う」ということで惑わされてしまったのだと思われますが、
ScriptControlは独立したVBScript/JScript実行環境を生成するものです。
ブラウザ側とは一切の紐づけが無いため、中で何をしようがブラウザには一切の影響はありません。

【2019年6月版】SeleniumBasicでMicrosoft Edgeを操作してみました。 | 初心者備忘録

また、上記サイトのコードを見るとgetElementsByClassName的なものはSeleniumBasic側で持っており、多少のことはJavaScript無しでもできそうな印象です。

Comments

[umai29]

ご回答ありがとうございます。
Webスクレイピングは初めてで、わけもわからず使用しておりましたが、ScriptControlは独立したJScript/VBScript実行環境を生成するもので、ブラウザとの紐づけがないということを初めて知り、勉強になりました。

その後自分でやってみたのですが、とりあえずはJavaScriptを使わずにFindElementByIdメソッドで、プルダウンメニューの選択やテキストボックスへの入力はできました。

ありがとうございました。