0

これを含む Web ページからテキストを取得したいと思います。href="#spec_Brand" で情報を取得したいと考えています。

<td class="table_spec">
    <dl>
        <dt class="table_spec_title">
            <a class="href_icon href_icon_help table_spec_titleimg" title="Which manufacturer is producing the product?" href="#spec_Brand">
                <span>Brand</span>
            </a>
            <span class="table_spec_titletext">Brand</span>
        </dt>
        <dd class="table_spec_definition">
            Producer of the product?
        </dd>
    </dl>
</td>

私は使用しようとしています:

Set TDelementsA = HTMLdoc.getElementsByTagName("TD")
    While r < TDelementsA.Length
      If TDelementsA.className = "table_spec" Then
         Sheet4.Range("A1").Offset(r, c).Value = TDelement.innerText
    End If

しかし、それは私に：製品のブランドプロデューサー？

それ以外の

spec_ブランド

誰かが私を助けることができますか？

4

1 に答える 1

1

これはあなたがしようとしていることですか？（注：テストのために、上記のhtmlをSheet1のセルA1に保存しました）。また、IEで遅延バインディングを使用しています

Option Explicit

Sub Sample()
    Dim ie As Object
    Dim links As Variant, lnk As Variant

    Set ie = CreateObject("InternetExplorer.Application")
    ie.Visible = True
    ie.navigate "About: Blank"

    ie.document.body.innerhtml = Sheets("Sheet1").Range("A1").Value

    Set links = ie.document.getElementsByTagName("a")

    For Each lnk In links
        If lnk.classname = "href_icon href_icon_help table_spec_titleimg" Then
            Debug.Print lnk.innertext
            Exit For
        End If
    Next
End Sub

スクリーンショット

ここに画像の説明を入力してください

于 2012-09-29T17:24:07.167 に答える