VBAスクレイピング

Question

https://qiita.com/SoreKiita/items/4b4c845b7378f6765704#23-%E3%83%87%E3%83%BC%E3%82%BF%E3%81%AE%E7%89%B9%E5%AE%9A

これの2.3 For Eachで全て取得する構文の中にstrがありますが、strの宣言部分がありません。
Variant型で宣言してみても、欲しい値は取れませんでした。
2.3の前半の添え字で取得しているような内容を取得したい場合は、どうすればよろしいでしょうか？

Answer 1

HTMLとして取得したいなら .innerHTML を、テキストのみ取得したいなら、.inerText を付加してください。

    '---------------------------------
    '添え字を指定せず存在するだけループさせれば全て取得できます
    '---------------------------------
    Dim str As Object
    For Each str In htmlDoc.getElementsByClassName("license")
        Debug.Print "出力：" & str.innerHTML
    Next str

Comments

[na58chan]

Ｏｂｊｅｃｔとして宣言すればいいのですね。strの型が省略されていた為、判断がつきませんでした。