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

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

ただいまの
回答率

87.77%

VBA 上の処理が完了するまで処理を止める方法について

解決済

回答 1

投稿 編集

  • 評価
  • クリップ 0
  • VIEW 1,121

score 3

お世話になっております。
現在Pタグから値を取得することは出来ました。
しかし、
ステップイン実行だと正常に動作して、
プログラム全体で実行を行うとPタグの値を取得出来ない、
という状況になってしまいパニックになりました。

色々なサイトを見たのですが、
今回の原因はおそらく、Pタグの値を取得する前に次の処理を行っているのが、
原因かと思っています。

■質問の内容
上の処理が完了するまで下の処理を止めるというコードを書きたいのですが、
ご教示いただけないでしょうか。


■作成したコード
Sub test()

Dim searchx As String
Dim searchy As String
Dim all As String
Dim box() As String

Dim WebIE As InternetExplorer

'------------------------------------
'★セルの文字取得

searchx = Cells(1, 1)
searchy = Mid(Cells(1, 5), InStr(Cells(1, 5), "@") + 1, 20)
all = searchx + " " + searchy
'------------------------------------

'------------------------------------
'★変数webIEを使用してIE起動

Set WebIE = New InternetExplorer

WebIE.Visible = True
WebIE.Navigate "https://www.google.com/?hl=ja"
'------------------------------------

'------------------------------------
'★IEのリロード完了まで処理をしない

While WebIE.Busy Or WebIE.readyState <> READYSTATE_COMPLETE
DoEvents
Wend
'------------------------------------

On Error Resume Next      '値がないとエラーが出るので、エラー回避用

'------------------------------------
'★値をWebで入力
Dim A As Object
For Each A In WebIE.document.getElementsByTagName("INPUT") '①FOR EACH でINPUTをすべて抜き出す。
If A.name = "q" Then A.Value = all
Next
'------------------------------------

'------------------------------------
'★検索ボタンをクリック
Dim b As Object
For Each b In WebIE.document.getElementsByTagName("INPUT") '①FOR EACH でINPUTをすべて抜き出す。
If A.name = "btnk" Then b.Click
While WebIE.Busy Or WebIE.readyState <> READYSTATE_COMPLETE
DoEvents
Wend
Next
'------------------------------------

'-------------------------------------
'★指定したURLのみ取得
Dim i As Long
Dim boxi As Long
ReDim box(boxi)
i = 5
boxi = 0

Dim htmlDoc As HTMLDocument
Set htmlDoc = WebIE.document
Dim anchor As HTMLAnchorElement

For Each anchor In htmlDoc.Links

If InStr(anchor, searchy) <> 0 And InStr(anchor, "google.com") = 0 Then
box(boxi) = anchor
'Cells(i, 1).Value = anchor
Else
boxi = boxi - 1
i = i - 1
End If

i = i + 1
boxi = boxi + 1
Next anchor

'-------------------------------------
WebIE.Quit

Set WebIE = New InternetExplorer
WebIE.Visible = True
WebIE.Navigate2 box(0)
'------------------------------------

'------------------------------------
'★IEのリロード完了まで処理をしない

While WebIE.Busy Or WebIE.readyState <> READYSTATE_COMPLETE
DoEvents
Wend

'------------------------------------
Dim access As Object
For Each access In WebIE.document.getElementsByTagName("a") '①FOR EACH でINPUTをすべて抜き出す。
If access.innerText = "テスト" Or access.innerText = "テスト1" Or access.innerText = "テスト2" Then
While WebIE.Busy Or WebIE.readyState <> READYSTATE_COMPLETE
DoEvents
Wend
access.Click
Exit For
End If
Next

Dim juusyo As Object
Dim cntn As Long
Dim change As String

cntn = 5
For Each juusyo In WebIE.document.getElementsByTagName("p")
If InStr(juusyo.innerText, "東京都") > 0 Then
Cells(cntn, 1).Value = juusyo.innerText
Else
End If

Next

End Sub

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

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

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

    クリップを取り消します

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

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

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

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

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

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

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

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

    質問の評価を下げる

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

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

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

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

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

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

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

    詳細な説明はこちら

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

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

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

質問への追記・修正、ベストアンサー選択の依頼

  • otn

    2020/06/09 17:56

    コード全体を書きましょう。

    キャンセル

  • hirokin92

    2020/06/09 18:04

    失礼しました。
    コード全体を書きました。

    内容は
    1.セルの値を取得
    2.その値を基にIEで検索
    3.検索結果から"Google.com"というURLが入っている結果を外す
    4.外した結果の一番上のURLを取得して新しいブラウザで開く
    5.開いたサイトのタグのインナーテキスト"テスト" "テスト1" "テスト2"が当てはまるタグを取得
    6.取得したURLに遷移
    7.遷移したページのPタグのインナーテキストに"東京都"が入ってあるか検索
    8.当てはまるタグがあったらそのタグのインナーテキストを取得←ここが全体を実行で動作しません。

    キャンセル

  • hatena19

    2020/06/10 01:39

    On Error Resume Next
    をコメントアウトして実行すると、どの行でエラーがでますか。また、そのエラーメッセージはなんですか。

    キャンセル

回答 1

checkベストアンサー

0

上記コードを見る限り、以下の「質問への追記・修正の依頼」にコメントされた

5.開いたサイトのタグのインナーテキスト"テスト" "テスト1" "テスト2"が当てはまるタグを取得
6.取得したURLに遷移

の後に、URL遷移が完了したかどうかの処理がないようです。
※他の所では、以下のようにしてIEの読込完了状態を確認している。

'pタグ取得前に、以下のような処理が行われていない
While WebIE.Busy Or WebIE.readyState <> READYSTATE_COMPLETE
    DoEvents
Wend

このため、ページ切替完了前に所定のpタグを探そうとして見つからない、ということなのではないかと思います。
(ステップ実行時には、ステップ実行中にページ切替が完了したため、所定のpタグが見つかった、というオチ。)

投稿

編集

  • 回答の評価を上げる

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

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

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

  • 回答の評価を下げる

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

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

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

  • 2020/06/10 10:01

    回答ありがとうございます。
    すみませんでした。
    おっしゃられた通り、ページ切り替えの前にpタグ取得処理に流れていたのが原因でした。
    ページ切り替えの処理の後ろにWhile ~Wendを挿入したら、問題なく全体で実行が動きました。
    本当に助かりました。

    キャンセル

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

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

関連した質問

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