Excel (VBA)

Excel VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 7 Home Premium : Excel 2016)
SeleniumBasicでKeyNOTFoundエラー
投稿日時: 19/06/22 07:04:25
投稿者: gorby

どの板に投稿しようか、迷いましたが、SeleniumBasicはVBA拡張機能なので、VBAの板に投稿します。
 
SeleniumBasicで下記のコードを書いて実行したら、KeyNotFoundエラー DictionaryKeyNotFound が出ました。どの行でエラーになったかさえわかりません。どなたか、わかる方デバッグ支援をお願いします!
ーーーーーーー
 
Sub GetShotworksList()
  Dim drv As New ChromeDriver
 
  drv.Get "https://shotworks.jp"
 
 
  drv.FindElementByCss("#startWorkingDay > div > ul > li:nth-child(1) > a > span").Click
  drv.FindElementByCss("#tagsDiv > ul.middle.link_list > li:nth-child(1) > input").Click
  drv.FindElementByCss("#js_freeword_search_text").SendKeys ("現金")
 
  Application.Wait Now() + TimeValue("00:00:05")
 
  drv.FindElementByCss("#searchButtonLink > span").Click
 
  Dim count As Long: count = 1
  Dim maxCount As Long
  maxCount = drv.FindElementsByCss("#list > div.workinfo_wrapper").count
 
  For count = 1 To maxCount Step 1
 
 
    Sheets(1).Cells(count, 1) = drv.FindElementByCss("#list > div:nth-child(2) > div.workinfo_inner > div.job_sum_wrapper > ul > li.salary").Text
 
  Next
drv.Quit
MsgBox "処理が完了しました", Title:="日払いで現金が貰えるバイトの給与一覧"
End Sub
--------
 

回答
投稿日時: 19/06/22 10:53:58
投稿者: simple

# こちらのコメントには「ありがとう。」だけで結果の報告もない、そういう人なので、
# こちらもその積もりでコメントする。
ステップ実行すれば、どこでエラーになるかくらいわかるのではないか。

回答
投稿日時: 19/06/23 10:41:54
投稿者: simple

https://www.indival.co.jp/2018/02/07/5918/
が出典のようですね。
自分が書いたものでなければ、きちんと出典を明示してください。
それが原作者とか閲覧者に対する礼儀というものです。
 
また、結果の書き出しのところはサンプルと違っています。
countを使っていない改悪がされています。
意図的に変えているんですか?
 
なお、同じエラーは再現できませんでした。
自分で環境を含めて検証するほかありません。
 
なお、ぴったりマッチした記事は無いが、推奨記事を提示されるケースが
出てきます。その時にはエラーが発生します(原因はわかっています)。
 
そもそも、自分で十分なデバッグをせずに、
他人にデバッグをさせるということがどうかと思います。
ステップ実行するくらいするものです。安直すぎます。

投稿日時: 19/06/25 13:01:07
投稿者: gorby

    ありがとう。