hatena19さんのコメントを参考に 実装してみました
VBA
1Sub test()
2
3
4 Dim Driver As New Selenium.WebDriver
5
6 With Driver
7 .SetCapability "pageLoadStrategy", "none"
8
9 .Start "chrome"
10 .Get "https://www.google.com/"
11 End With
12
13
14 CUR_URL = Driver.Url
15
16 MsgBox CUR_URL
17
18
19End Sub
実行すると
【https://www.google.com/ 】ではなく
【data;】とでます
流れ
① 【pageLoadStrategy】をググる
ページ読み込み戦略 :: Seleniumドキュメント で
他言語での 記述を確認
【Python】のサンプルコード
options = Options()
options.page_load_strategy = 'none' から
VBAでの Options() の記述の仕方を 探してみる
② 【vba selenium options chrome】をググる
ヘッドレス ChromeをSeleniumBasicで動かしてみました ... で
「以前書いた記事では、.Net用のSeleniumを使い「ChromeOptions」でヘッドレスモードを指定したのですが、SeleniumBasicではChromeOptionsが用意されていないようです。
どうすれば良いのか一瞬迷いましたが、「AddArgument」で普通にヘッドレス用のオプションを指定すれば良いようです。」
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Capabilities & ChromeOptions - WebDriver for Chrome で
「Recognized capabilities
Please see Selenium documentation and W3C WebDriver standard for standard capabilities accepted by ChromeDriver. Here we only list Chrome-specific capabilities.
ChromeOptions object
Most Chrome-specific capabilities are exposed through the ChromeOptions object. In some languages, this is implemented by the ChromeOptions class. In other languages, they are stored under the goog:chromeOptions dictionary in desired capabilities.」
と
【Ruby】コードの
「caps = Selenium::WebDriver::Remote::Capabilities.chrome(
"goog:chromeOptions" => {"args" => [ "window-size=1000,800" ]})
driver = Selenium::WebDriver.for :chrome, desired_capabilities: caps」から
「AddArgument」と「desired_capabilities」が
キーワードとなるのではないかと 推測
③ VBEで
Dim Driver As New Selenium.WebDriver
Driver
と入力し、次に ピリオドを打鍵
すると
入力候補一覧が 表示されるので
スクロールして 確認
ここでは
【AddArgument】 と 【SetCapability】
が 使えそうではないかと 目星を付ける
④ 【addargument pageLoadStrategy】と【SetCapability pageLoadStrategy】を ググる
Page load strategy for Chrome driver (Updated till Selenium ... で
「dcap.setCapability("pageLoadStrategy", "normal");」から
VBEに
Driver.SetCapability( "pageLoadStrategy", "none")
と入力
エラーなので
Driver.SetCapability "pageLoadStrategy", "none" として
コンパイル & 実行