質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

ただいまの
回答率

88.92%

vbaのスクレイピング エラーが起きた際に処理を飛ばす。

解決済

回答 2

投稿

  • 評価
  • クリップ 0
  • VIEW 2,124

memomemo

score 26

只今vbaにてスクレイピング処理をしています。
しかし、途中で処理が止まってしまい困っています。

下記画像のエラーが出た際に次の処理に移れるようなif文を作りたいのですがお力添えをいただけますと幸いです。

イメージ説明

Sub listPost()


exlrow = 350
'ページ情報を取得
For j = 111 To exlrow
    Set objIE = CreateObject("Internetexplorer.Application") '新しいIEオブジェクトを作成してセット
    objIE.Visible = True 'IEを表示
    objIE.navigate Worksheets("Sheet1").Range("A" & 1 + j).Value 'IEでURLを開く

    Do While objIE.Busy = True Or objIE.readyState < READYSTATE_COMPLETE '読み込み待ち

        DoEvents

    Loop

    Dim htmlDocCompanies As HTMLDocument 'HTMLドキュメントオブジェクトを準備
    Set htmlDocCompanies = objIE.document 'objIEで読み込まれているHTMLドキュメントをセット

    Dim CoList As IHTMLElementCollection
    Set CoList = htmlDocCompanies.getElementsByClassName("main") 


    Worksheets("Sheet1").Cells(j + 1, 2).Value = htmlDocCompanies.getElementsByClassName("list")(0).getElementsByClassName("attend")(0).getElementsByClassName("attend-td")(0).innerText
    Worksheets("Sheet1").Cells(j + 1, 3).Value = htmlDocCompanies.getElementsByClassName("attend")(0).getElementsByClassName("attend-td")(1).innerText
     Worksheets("Sheet1").Cells(j + 1, 4).Value = htmlDocCompanies.getElementsByClassName("attend")(0).getElementsByClassName("attend-td")(2).innerText
     Worksheets("Sheet1").Cells(j + 1, 5).Value = htmlDocCompanies.getElementsByClassName("attend")(1).getElementsByClassName("attend-td")(0).innerText
    Worksheets("Sheet1").Cells(j + 1, 6).Value = htmlDocCompanies.getElementsByClassName("attend")(1).getElementsByClassName("attend-td")(1).innerText
    Worksheets("Sheet1").Cells(j + 1, 7).Value = htmlDocCompanies.getElementsByClassName("attend")(1).getElementsByClassName("attend-td")(2).innerText
    Worksheets("Sheet1").Cells(j + 1, 8).Value = htmlDocCompanies.getElementsByClassName("attend")(1).getElementsByClassName("attend-td")(3).innerText
    objIE.Visible = False
    objIE.Quit
Next j

End Sub
  • 気になる質問をクリップする

    クリップした質問は、後からいつでもマイページで確認できます。

    またクリップした質問に回答があった際、通知やメールを受け取ることができます。

    クリップを取り消します

  • 良い質問の評価を上げる

    以下のような質問は評価を上げましょう

    • 質問内容が明確
    • 自分も答えを知りたい
    • 質問者以外のユーザにも役立つ

    評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

    質問の評価を上げたことを取り消します

  • 評価を下げられる数の上限に達しました

    評価を下げることができません

    • 1日5回まで評価を下げられます
    • 1日に1ユーザに対して2回まで評価を下げられます

    質問の評価を下げる

    teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

    • プログラミングに関係のない質問
    • やってほしいことだけを記載した丸投げの質問
    • 問題・課題が含まれていない質問
    • 意図的に内容が抹消された質問
    • 過去に投稿した質問と同じ内容の質問
    • 広告と受け取られるような投稿

    評価が下がると、TOPページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

    質問の評価を下げたことを取り消します

    この機能は開放されていません

    評価を下げる条件を満たしてません

    評価を下げる理由を選択してください

    詳細な説明はこちら

    上記に当てはまらず、質問内容が明確になっていない質問には「情報の追加・修正依頼」機能からコメントをしてください。

    質問の評価を下げる機能の利用条件

    この機能を利用するためには、以下の事項を行う必要があります。

回答 2

checkベストアンサー

+1

エラー処理の観点からはあまり良い方法ではないのですが、VBAにはエラーが何か発生したとしてもとりあえずすべて無視して次の処理に移るという、今回の内容に合致した命令があります。

こちらに記載されているOn Error Resume Nextが該当のものですが、ひとまずこちらで解決しませんでしょうか。

本来、厳密に処理をするのであればエラーの内容を参照して想定されるエラーの場合は無視し、そうでない場合はエラー表示をし・・等適切な処理をすることが望ましいのですが、個人利用やそこまで厳密な管理をしないコードであればひとまず解決に向かうかと思います。

投稿

編集

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2017/05/22 15:18

    ありがとうございます。
    こちらで対応出来ました!!

    キャンセル

+1

とりあえず、先頭に

On Error Resume Next

を記述しておけば、すべてのエラーが無視されて、次の行の処理へ進みます。

エラーの発生場所、種類などで後の処理を変更したい場合などは、「VBA エラー処理」をキーワードにWEB検索するといろいろ解説ページが見つかりますので、それを参照してください。
例えば、

Office TANAKA - Excel VBA Tips[エラーに負けない]

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2017/05/22 15:19

    ご回答ありがとうございます!
    こちらのサイトを参考にさせていただきます!

    キャンセル

15分調べてもわからないことは、teratailで質問しよう!

  • ただいまの回答率 88.92%
  • 質問をまとめることで、思考を整理して素早く解決
  • テンプレート機能で、簡単に質問をまとめられる

関連した質問

同じタグがついた質問を見る