Подсчитать количество строк по тегам

@shavka · Регистрация: 27.11.2013

Студворк — интернет-сервис помощи студентам

Есть HTML-файл

HTML5
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html>
<table border="1">
<caption>Non-EURO operations</caption>
<thead>
     <tr>
        <th>Ref.</th>
        <th>Curr.</th>
     </tr>
</thead>
<tbody>
    <tr>
      <td><a href="20180071.en.html" class="inline-link">20180071</a></td>
      <td>USD</td>
    </tr>
</tbody>
  <tfoot>
     <tr>
          <td colspan="11">1) MRO = Main Refinancing Operations</td>
     </tr>
     <tr>
          <td colspan="11">2) outright operations</td>
     </tr>
  </tfoot>
</table>
</body>
</html>

Нужно посчитать количество строк таблицы, исключая тег <tfoot>.
Или, как вариант, посчитать количество строк таблицы и минусовать количество строк тега <tfoot>.

Вот код

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Sub importSwapECB()
 
' получаем объект 
Dim objHttp As Object, objHtml As Object
Dim strURL As String, strHtml As String
    
strURL = "С:\Рабочий стол\EBC.htm" 
   
Set objHttp = CreateObject("MSXML2.XMLHTTP") '"MSXML.XMLHTTPRequest"
Set objHtml = CreateObject("HTMLFile")    
objHttp.Open "GET", strURL, False
objHttp.Send    
strHtml = objHttp.ResponseText
objHtml.Write strHtml 'objHttp.ResponseText    
Set objHttp = Nothing
     
' создаем объект Таблица 
Dim objTable As Object
 
Set objTable = objHtml.getElementsByTagName("TABLE")
 
‘создаем объект Строки таблицы
Dim qR As Integer  ' количество строк
Dim qR As Integer ' количество объектов tfoot, чтобы проверить, что объект создан
 
 Set objRow = objTable.Rows
 qR = objRow.Length
MsgBox qR  
 
‘ создаем объект под тегом  tfoot
Dim objTable1 As Object
Set objTable1 = objTable.getElementsByTagName("tfoot")
qF = objTable2.Length

а дальше никак. Пытался создать объект внутри objTable2

Visual Basic
1
2
Dim objTable2 As Object
Set objTable2 = objTable1.getElementsByTagName("tr")

Пытался посчитать количество строк

Visual Basic
1
2
Dim objTable2 As Object
Set objRow = objTable2.Rows

Во всех этих случаях выдает ошибку “Object doesn’t support this property or method” – Объект не поддерживает это св-во или метод. Есть какие-нить варианты?

Еще вопрос несколько оффтопик. В объект-браузере для HTMLDocument предлагается офигенное количество методов и свойств. У меня почему-то реально работает getElementsByTagName, на все остальное код плюецця и ругацця. Может, есть какой-нить более функциональный объект? Если да, то можно ли перевести объект класса HTMLDocument в другой объект? Или сразу его получить из респонса?

@ji2n · 06.08.2018, 15:11

Так что ли(?):

Кликните здесь для просмотра всего текста

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub importSwapECB2333()
'Dim objHttp As MSXML2.XMLHTTP60, objHtml As HTMLDocument, objTable1 As HTMLTable
Dim strURL As String, strHtml As String
strURL = "С:\Рабочий стол\EBC.htm"
Set objHttp = CreateObject("MSXML2.XMLHTTP") '"MSXML.XMLHTTPRequest"
objHttp.Open "GET", strURL, False
objHttp.send
Set objHtml = CreateObject("HTMLFile")
strHtml = objHttp.ResponseText
objHtml.BoDY.innerHTML = strHtml 'objHttp.ResponseText
Set objHttp = Nothing
Set objTable = objHtml.getElementsByTagName("TABLE")
For Each X In objTable
    For Each N In X.getElementsByTagName("thead")
    Debug.Print N.Rows.Length
    Next
    
    For Each N In X.getElementsByTagName("tbody")
        Debug.Print N.Rows.Length
    Next
Next
Set objTable = Nothing
End Sub

@shavka · 06.08.2018, 17:04 **[ТС]**

Спасибо, работает. Странно только, почему не работает без цикла.

Добавлено через 26 минут
Разобрался, работает, если указать индекс элемента. Вот так:

Visual Basic
1
2
3
4
5
Set n = objTable(0).getElementsByTagName("tbody")
Set n1 = n(0).Rows
 
qB = n1.Length
MsgBox qB

Добавлено через 5 минут
Ужасно корявый и убогий объект этот HTMLDocument. Может, в глазах профи я выгляжу мазохистом, пытаясь написать парсинг HTML в VBA? Для этого есть Java и VBScript. Но тогда как их связать с Excel? В vba есть библиотека и Джавы. У меня в VBA есть даже библиотека моей торговой платформы. Но где взять синтаксис VBA для этих библиотек?

Новые блоги и статьи Все статьи Все блоги /
Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек SDL3 и Box2D из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия SDL 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual. . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»