［vba］［for文&if文］初心者です。この文がなぜ実行できないのかの質問です。

Question

初心者です。IEは出てくるのですが、MsgBoxが出てきません。
何故出てこないかをわかりやすく教えてください。よろしくお願いします。
最終的な目標はarticleタグ内の住所や会社名などを一つ一つexcelに取得することです。

Sub ie_test()
    Dim ie As InternetExplorer
    Dim doc As HTMLDocument
    Dim i As Long
    
    Set ie = CreateObject("InternetExplorer.Application")
    ie.Visible = True
    ie.Navigate "http://itp.ne.jp/genre_dir/restaurant/?sr=1&ngr=1&evdc=1&st=4"
    Do While ie.Busy Or ie.ReadyState < READYSTATE_COMPLETE
        DoEvents
    Loop
    
    Set doc = ie.Document
    
    
    For i = 0 To doc.all.Length - 1
        If doc.all(i).tagName = "article" Then
            If doc.all(i).innerText = "群馬県桐生市相生町" Then
                MsgBox doc.innerText
            
                Exit For
            End If
        End If
    Next i
    
End Sub

Answer 1

articleタグかどうかを判定する際に、大文字・小文字のどちらかに揃えたうえで比較した方がよさそうです。

If doc.all(i).tagName = "article" Then

↓

If LCase(doc.all(i).tagName) = "article" Then

ということで、Forループ部分を下記のように書き換えれば、articleタグ内の文字列が一つ一つ表示されるようになるのではないかと。

    For i = 0 To doc.all.Length - 1
        If LCase(doc.all(i).tagName) = "article" Then
            MsgBox doc.all(i).innerText
        End If
    Next i

Comments

[tnaka11]

有り難うございます。無事に思い通り動きました。
若干感動してしまいました。どうも有難うございます。

Answer 2

実行環境が無くて確認できず申し訳ないのですが、以下のコードではMsgBoxには何が現れますか？

Sub ie_test()
    Dim ie As InternetExplorer
    Dim doc As HTMLDocument
    Dim i As Long
    
    Set ie = CreateObject("InternetExplorer.Application")
    ie.Visible = True
    ie.Navigate "http://itp.ne.jp/genre_dir/restaurant/?sr=1&ngr=1&evdc=1&st=4"
    Do While ie.Busy Or ie.ReadyState < READYSTATE_COMPLETE
        DoEvents
    Loop
    
    Set doc = ie.Document
    
	Dim ret As Variant
	Dim Str As String
    For i = 0 To doc.all.Length - 1
        If doc.all(i).tagName = "article" Then
        	Str = doc.all(i).innerText
        	ret = InStr(1, Str, "群馬県桐生市相生町", vbTextCompare)
           if  ret <> 0 Then
                MsgBox Str
            
                Exit For
            End If
        End If
    Next i    
End Sub

Comments

[tnaka11]

IEは出るのですがMsgBoxは出てきませんでした。

Answer 3

手元にエクセルが無いので確認は出来ないのですが、

If doc.all(i).innerText = "群馬県桐生市相生町" Then

で、"群馬県桐生市相生町"と比較していますが実際の文字列は、"群馬県桐生市相生町５丁目６１３－４"なので一致しないと判定されているのではないかと思います。
よって行はテキストから"群馬県桐生市相生町"という文字列を検索して在るか無いかという判定処理を行う必要があります。
文字列の検索はInStr関数を使えば出来るそうなのでIF文を下記のように書き換えてみてはいかがでしょう？
InStr関数

Dim ret As Variant
Dim Str As String
For i = 0 To doc.all.Length - 1
Str = doc.all(i).innerText
ret = InStr(1, Str, "群馬県桐生市相生町", vbTextCompare)
if  ret <> 0 Then
  MsgBox Str
  Exit For
コード

Comments

[tnaka11]

回答有難うございます。
実行してみたところMsgBoxはでるのですが、お目当てのarticleタグ内の情報が出ません。
MsgBoxに
あ
住所 〒376-0011　群馬県桐生市相生町５丁目６１３－４
TEL [phone]
と、これらの情報が出るようにしたいのですがうまく行きません。
説明不足で申し訳ありません。何卒よろしくお願いします。