excel vbaでの文字列比較について

Question

excel2013でxlsファイルを互換モードで開いてvbaのコードを実行しております。
If StrComp(Doc.all(k + n).tagName, "TD", vbTextCompare) = 0 Then

Else
Exit Do
End If

というコードで、TDタグであるのにもかかわらずExit Doのところに処理が進んでしまいます。どうしたらよいでしょうか?

Comments

[kaz.Suenaga]

If の前の行に

Debug.Print Doc.all(k + n).tagName

とかやってイミディエイトウィンドウに表示される文字列を確認することはできますか

[yoimata]

それをやったところ、TDと表示されます。

[kaz.Suenaga]

もう1つ、 Exit Do の直前に
Debug.Print Doc.all(k + n).tagName, StrComp(Doc.all(k + n).tagName, "TD", vbTextCompare)
を挟んでみると、イミディエイトになんと表示されますか。

Answer 1

結局、Internet Explorerオブジェクトのgobackメソッドが誤動作していたようなのでそれを使わないようにソースを変更しました。

Answer 2

結局、Internet Explorerオブジェクトのgobackメソッドが誤動作しているみたいなのでそれを使わないようにソースを変更しました。

Answer 3

Debug.Print Doc.all(k + n).tagNameでTDと表示されるにもかかわらず、"TD"との比較で失敗しているとなると、制御文字などが混じっている可能性もありますね。

一度、文字列長を測ってみてください。
Debug.Print Len(Doc.all(k + n).tagName) = Len("TD")
Debug.Print LenB(Doc.all(k + n).tagName) = LenB("TD")

Answer 4

そもそもDoc.all(k + n).tagNameで"TD"が返ってきていると思い込んでいませんか？

Dim t as string
t = Doc.all(k + n).tagName
If StrComp(t, "TD", vbTextCompare) = 0 Then                               
 '
Else 
 MsgBox(t)
 Exit Do                             
End If