Este fórum está sendo desativado

[LuisRosales]

Alguem pode me passar o código para extrair as informações pela div class (tem varias com o mesmo nome "accordion-item), porém seus atributos são diferentes.
Tem utilizado (0), (1) porém as vezes muda conforme a pagina e ai minhas colunas ficam erradas, preciso referenciar pelos atributos (por exemplo o id="accordion-titulares").

div class="accordion-item">
<input type="checkbox" name="accordion" checked="checked" id="accordion-titulares">
<label for="accordion-titulares"><font class="titulo">Titulares</font>
<font class="normal">

Muito obrigado.

[LuisRosales]

Bom dia

Por favor me ajudem, falta apenas este código para concluir meu projeto.

Muito obrigado!

[LuisRosales]

Boa noite pessoal,

Estou complementando meu pedido, pois com certeza não fui claro na minha solicitação . Peço desculpas por isso!

Estou mandando uma print da estrutura da pagina que preciso raspar, sendo:

A página é dividido com varias tabelas e divs com mesmo nome, o que deferencia é este input que fica logo abaixo do class="accordion-item".

Hoje estou usando o codigo:
Set HTMLDoc = IE.document
Set HTMLDiv = HTMLDoc.getElementById("principal")
Set HTMLClass = HTMLDiv.getElementsByClassName ("accordion-item") (0)
Set HTMLClass = HTMLDiv.getElementsByClassName ("accordion-item") (1)
Set HTMLClass = HTMLDiv.getElementsByClassName ("accordion-item") (2)
Set HTMLClass = HTMLDiv.getElementsByClassName ("accordion-item") (3)
Set HTMLClass = HTMLDiv.getElementsByClassName ("accordion-item") (4)
Set HTMLClass = HTMLDiv.getElementsByClassName ("accordion-item") (5)

Porém as vezes dependendo da página, possui menos tabelas e/ou divs, não possuindo uma ordem de sua classificação.

No print que mandei possui este input que possui até id que fica logo abaixo do div class accordion-item.

O qure estou precisando é do código para definir estas divs e/ou tabelas de forma que fique fixa atrelando pelo id e não por estes números que informei (0), (1), etc.

Desculpem sou leigo, estou com dificuldade de fazer este código.

[LuisRosales]

Olá pessoal, consegi após muitos testes rs.

De:

Código: Selecionar todos

Set HTMLDoc = IE.document
Set HTMLDiv = HTMLDoc.getElementById("principal")
Set HTMLClass = HTMLDiv.getElementsByClassName ("accordion-item") (0)

Para:

Código: Selecionar todos

Set HTMLDoc = IE.document
Set HTMLDiv = HTMLDoc.getElementById("principal")
Set HTMLClass = HTMLDiv.getElementsByClassName ("accordion-item")
For Each HTMLClass In HTMLClasses
If HTMLClass.innerHTML Like ("*accordion-titulares*") Then

Declarei:
Dim HTMLTable As MSHTML.IHTMLElement
Dim HTMLClasses As MSHTML.IHTMLElementCollection