Excel Como extrair as propriedades de um botão e exibir numa célula do Excel?

[janweb10]

Bom dia pessoal!
Sou inexperiente no VBA, e estou fascinado pelo que tenho aprendido.
Extraio um relatório de cobrança bancária na tela em que a coluna Número do Título é um link para consulta do título completo. 

Sacado             NúmeroTit    Vlr. Título   Vencimento
MERCADO B    10855            528             06/11/2020
IND HOLAM    10849            899,32        13/11/2020
COM JUND      10863            604,46        17/11/2020

Preciso analisar esses dados no excel, mas o site do banco só permite imprimir ou exportar o pdf.
Ao copiar a tabela da tela e colar num editor de texto comum, não vem a coluna Número do Título.
Ao copiar p/ outros programas (Excel, Word, Editor html) essa coluna vem como um botão com número do título no caption. 
O Botão é nomeado sequencialmente como HTMLSubmit1, ...2, ..3, etc.

Como copiar o caption do botão e colar em outra célula da mesma linha para extrair o número do título?
Ou ainda mais automático, percorrer todos os botões e extrair os números dos títulos do caption do botão?

Abs e um ótimo dia a todos

Forum Botão propriedades.xlsx

[Edson Luiz Branco]

Bem vindo, @janweb10

 

Veja se é isso:

Sub PegaCaption()
  Dim htmlBtn As OLEObject
  For Each htmlBtn In Worksheets("Exemplo").OLEObjects
    htmlBtn.TopLeftCell.Offset(0, 4).Value = htmlBtn.Object.Caption
  Next htmlBtn
End Sub

 

[janweb10]

Em 20/10/2020 às 15:13, Edson Luiz Branco disse:

Bem vindo, @janweb10

 

Veja se é isso:

Sub PegaCaption()
  Dim htmlBtn As OLEObject
  For Each htmlBtn In Worksheets("Exemplo").OLEObjects
    htmlBtn.TopLeftCell.Offset(0, 4).Value = htmlBtn.Object.Caption
  Next htmlBtn
End Sub

 

Muito obrigado @Edson Luiz Branco
Funcionou com perfeição.
Código compacto e inteligente.
Isso me anima a prosseguir a estudar o VBA.
Parabéns e obrigado!