Макрос для формирования таблицы на отдельном листе по номеру ID

[doober]

Макрос в помощь поиска ID нужных полей для ввода данных ,чтобы не перебирать вам html код страницы

 Sub Pois_ID()
Dim Html_Element
Dim l As Integer
l = 1
Cells(l, 1) = "id"
Cells(l, 2) = "name"
Cells(l, 3) = "value"
 For Each Html_Element In WebBrowser1.Document.GetElementsByTagName("input")
l = l + 1
Cells(l, 1) = Html_Element.GetAttribute("id")
Cells(l, 2) = Html_Element.GetAttribute("name")
Cells(l, 3) = Html_Element.GetAttribute("value")
        Next

End Sub