VBAでnameの名前を取得したい

前提・実現したいこと

VBAで実現したいです。
下記HTMLのソースでclass="data01"内でループして、nameの「aaa」という文字や「bbb」の文字を取得することは可能ですか？可能であれば教えて下さい。

<div class="data01">
  <a name="aaa"></a>
    <div>***************
    </div>
  <a name="bbb"></a>
    <div>***************
    </div>
  <a name="ccc"></a>
    <div>***************
    </div>
</div>

該当のソースコード

HTMLのソースの取得までは以下の通り書いてみました。

Sub Main()
  Dim objIE As InternetExplorer
  Dim objDoc       As Object
  Dim objtag        As Object
  Dim url          　As String

    Set objIE = CreateObject("InternetExplorer.Application")
    objIE.Visible = True
    url = "指定のURLアドレス"
    Call access(objIE, url)

   For Each objtag In objIE.document.getElementsByTagName("div")
      If InStr(objtag.outerHTML, "data01") <> 0 Then

        'ここでnameの名前を順番に取得したいのですが方法がわかりません。

      End If
  Next
End Sub


Sub access(ByRef objIE As Object, ByVal url As String)
    objIE.Navigate url

    'IEを待機
    Do While objIE.Busy = True Or objIE.readyState <> 4
        DoEvents
    Loop
    Call WaitFor(3) '指定秒停止
End Sub

補足情報（FW/ツールのバージョンなど）

Excel 2016

radames1000

2020/08/21 06:46

HTMLのソースの取得まではできているんでしょうか？ご自身で書かれたコードを教えてください。

beginner53

2020/08/21 14:30

HTMLのソースの取得までを追記しました。

行動規範の内容に同意します

回答1件

ベストアンサー

こんな感じでいかがでしょう。

VBA
1Dim tmp As Variant
2Dim i As Long, n As Long
3Dim data() As String
4For Each objtag In objIE.document.getElementsByTagName("div")
5    If InStr(objtag.outerHTML, "data01") <> 0 Then
6        tmp = Split(objtag.outerHTML, "name=""")
7        For i = 1 To UBound(tmp)
8            n = n + 1
9            ReDim Preserve data(n)
10            data(n) = Split(tmp(i), """")(0)
11        Next
12    End If
13Next