Excel (VBA)

Excel VBAに関するフォーラムです。
  • 掲示板への投稿には会員登録(無料)が必要です。会員登録がまだの方はこちら
  • 掲示板ご利用上のお願い」に反するご記入はご遠慮ください。
  • Q&A掲示板の使い方はこちらをご覧ください
トピックに返信
質問

 
(指定なし : 指定なし)
VBA WEBの情報を取り出すソース
投稿日時: 21/02/13 20:39:30
投稿者: ちゃんさん

 
WEBページを巡回するプログラムで正常に動作しているのですが
時々システムエラーでWEBページが正常に表示されず
クリックしたいボタンも出ない場合がありその時にエラーで止まってしまいます。
更新すると正常な画面に移行するのですが
そのコードの書き方が分からなく教えて頂けますでしょうか?
理想としてはシステムエラーで表示されなかった場合
正常に表示されるまで更新を10回するといった形になります。
 
 
 
 '//該当ボタンを押す
            edit_driver.Get ("https://〇〇〇〇=" + ○〇〇○id)
            Call random_sleep
             
            '//取り消しボタンクリック既存のソースコード
            'edit_driver.FindElementByName("confirm").Click
           
             
            ↓試行錯誤で書いたコード
             For Reload = 1 To 10
            If edit_driver.FindElementByName("confirm") = 0 Then
            Exit For
             
            edit_driver.Get (edit_driver.Url)
            Next Reload
            edit_driver.FindElementByName("confirm").Click

回答
投稿日時: 21/02/13 22:00:55
投稿者: simple

すみませんが、提示された情報だけではアドバイスしたくても難しいです。
提示されたコードは基本的な文法上の誤りがありますし、
以下の事項についての情報提示が少なくとも必要だと思います。
無理にとは申しませんが、もし皆さんに適切なコメントを求めるのであれば、
それらを提示することをお薦めします。
 
(1)
>WEBページを巡回するプログラムで正常に動作している
のであれば、それを省略せずに提示してください。
URLも提示していただきたいですね。
こうしたWEBスクレイピングは一つのコードでどれにも対応できるということは、まずありません。
個々のWEBの状況に応じた対応が求められます。
URLが特定されない状況では適切なコメントはできないと思われます。
 
(2)エラーの原因を分析する必要があります。
上記のコードのどこでエラーが発生し、どんなメッセージがでるのかの情報が必要です。
 
(3)OSと、Excelのバージョン
(4)使用しているブラウザの種類とバージョン
(5)使用しているライブラリー等があれば、その情報

トピックに返信