If lw > 0 Then       
        Debug.Print Trim(s)
    End If

       If lw > 0 Then
            If Trim(s) Like "*Windows Internet Explorer*" Then
                MsgBox Trim(s) 'Открытые окна
            End If
        End If

        On Error Resume Next
        Set IE = CreateObject("InternetExplorer.Application")
        IE.Visible = True 'False '
        URL = "https://xxxxxxxxxxxt"
        IE.Navigate (URL): Do Until IE.ReadyState = 4: DoEvents: Loop

       Set Htable = IE.document.getElementsByTagName("table") 'выбираем все элементы с 'тегом table

        Set maTable = Htable(0) ' таблица

'    Пробуем открыть кнопку "подробнее"   
For Each span In IE.document.getElementsByTagName("button")             
If span.Type = "button" Then                  
ккк = span.Name                 
If ккк <> "" Then MsgBox "span.Name=" & ккк                 
ннн = span.tagName                 
If ннн <> "" Then MsgBox "span.tagName=" & ннн                 
еее = span.Value                 
If еее <> "" Then MsgBox "span.Value=" & еее                 
ггг = span.Title                 
If ггг <> "" Then MsgBox "span.Title=" & ггг
End If
Next
срабатывает только на span.tagName. Т.е. находит только одно значение, ни Name, ни Value, ни Title не показывают "подробнее"...
Тем не менее, удалось нажать кнопку.        
For Each span In IE.document.getElementsByTagName("button")            
If span.Type = "button" Then                
ннн = span.tagName                
If ннн <> "" Then MsgBox "span.tagName=" & ннн: span.Click            
End If        Next
Но теперь вопрос, а как получить доступ к открытой страничке?
Как взять данные с этой таблицы?

Set Htable = IE.document.getElementsByTagName("table") 'выбираем все элементы с 'тегом table

            For i = 1 To maTable.Rows.Length ' table rows
                For j = 1 To maTable.Rows(i - 1).Cells.Length ' each cell of the row
                    ффф1 = maTable.Rows(i - 1).Cells(j - 1).innertext
                    If ффф1 Like "*Фамилия, имя, отчество*" Then
                        НомерТаблицы = www
                        КолвоСтрокВтабл = maTable.Rows.Length
                        КолвоСовпНомерУдост = КолвоСтрокВтабл - 2
                        GoTo 32
                    End If
                Next j
            Next i
32    For v = 1 To КолвоСовпНомерУдост
            ФИО(v) = Trim(maTable.Rows(v + 1).Cells(0).innertext)
            Клеймо(v) = Trim(maTable.Rows(v + 1).Cells(1).innertext)

<td> ОХНВП 
<button type="button" onclick='clear_modal(); jsAjaxUtil.InsertDataToNode("/assp/reestrperson/detail.php?ID=YTo0OntzOjM6ImZpbyI7czoyNToiyu7w8iDA6+Xq8eDt5PAgwujq8u7w7uLo9yI7czo5OiJ1ZG9zdF9udW0iO3M6MTU6IszQLTIxwNYtSS0wNzYzMCI7czoxMDoidWRvc3RfZGF0ZSI7czoxMDoiMDMuMDYuMjAxNiI7czo0OiJ0eXBlIjtzOjA6IiI7fQ==", "oblast_att")' class="btn btn-link btn-xs" data-toggle="modal" data-target="#modal-detail">подробнее</button>
</td>
               </tr>
</table>   <p></p>
<div class="modal fade" id="modal-detail" tabindex="-1" role="dialog">
      <div class="modal-dialog" role="document">
         <div class="modal-content" id="oblast_att">
             
         </div>
      </div>
   </div></p>
</div>
</div>
</div></div>
<div class="main" id="menu">
<div class="container">

 For Each span In IE.document.getElementsByTagName("button")

For Each span In IE.document.getElementsByTagName("input")

For i = 1 To IE.document.all.Length - 1
            If IE.document.all.Item(i).Type = "button" Then