質問: New ChromeDriver Dim sSyadaiBango As String Dim iTimeout As Integer driver.Start driver.Window.SetPosition 0, 0 '画面最大化 driver.Window.Maximize driver.Get "https://hogehoge.com/" Application.Wait Now + TimeValue("00:00:05") driver.FindElementByCss("body").SendKeys (Keys.PAGE_DOWN) を実行すると、 実行時エラー '424' オブジェクトが必要です。 と表示されます。 ### 該当のソースコード Excel2007 VBA コードは上記の通りです。 ### 試したこと 上記 driver.FindElementByCss("body").SendKeys (Keys.PAGE_DOWN) について、SendKeysのパラメータをどう指定すれば良いのかがわかりません。
回答: ``` Dim driver As ChromeDriver Set driver = New ChromeDriver Dim keys As New keys Dim sSyadaiBango As String Dim iTimeout As Integer driver.Start driver.Window.SetPosition 0, 0 '画面最大化 driver.Window.Maximize driver.Get "https://hogehoge.com/" Application.Wait Now + TimeValue("00:00:05") driver.FindElementByCss("body").SendKeys (keys.PageDown) ```