Copiar linha da tabela htlml para excel

[Udison]

boa noite,

Tenho um grande problema. Quero copiar um dado do excel, colar na página da WEB e retornar um linha de uma tabela que está em html.

Hoje, já consigo copiar do excel e colar na página que desejo. Mas ai começa a dificuldade:

Copio o dado de uma célula do excel colo nos campos de texto, no entanto quando quero clicar em submeter "submit" não tenho o nome do elemento para referência "ie.document.all". Algo que ficaria assim, se o botão tivesse o nome: 'ie.document.all("pesquisar").Subimit ou

'ie.document.all("pesquisar").click.

Assim está o cód .Fonte:

<input type="submit" value="Pesquisar" class="botao_submit" onClick="this.form.submit(); this.disabled = 'true';"/>

Como faço para clicar nesse botão sem usar sendkeys? Outro passo, seria copiar o resultado dessa pesquisa que está em uma tabela para o excel. Não consigo achar um forma da variável ler somente o texto. Tentei usar o innertext, mas não obtive sucesso. Tentei também o getelementsbytagname, mas ele funcionou com JAVA. Meu código atual, sem a tentativa de copiar tabelas

Sub web()


Dim ie As Object

'Dim tabela As Object

Dim informacao1 As String

Dim informacao2 As String

informacao1 = Range("a2")

informacao2 = Range("b2")


Sheets("nome da plan").Activate

Set ie = CreateObject("InternetExplorer.Application")

ie.navigate "https://nome do site"

While ie.Busy

DoEvents

Wend

ie.Visible = True

'caixa de texto

ie.document.all("campo1").Value = informacao1 

'caixa de texto

ie.document.all("campo2").Value = informacao1

'botao

ie.document.all("trecho").Select



SendKeys "{TAB}", True '1
SendKeys "{TAB}", True '2
SendKeys "{TAB}", True '3
SendKeys "{TAB}", True '4
SendKeys "{TAB}", True '4
SendKeys "{TAB}", True '4
SendKeys "{TAB}", True '4
 SendKeys "{TAB}", True '4
 SendKeys "{TAB}", True '4
 SendKeys "{TAB}", True '4
 SendKeys "{TAB}", True '4
 SendKeys "{TAB}", True '4
 SendKeys "{TAB}", True '4
 SendKeys "{TAB}", True '4
 SendKeys "{TAB}", True '4
 SendKeys "{TAB}", True '4
 SendKeys "{TAB}", True '4
 SendKeys "{TAB}", True '4
 SendKeys "{TAB}", True '4
 SendKeys "{TAB}", True '4
 SendKeys "{TAB}", True '4
 SendKeys "{TAB}", True '4
 SendKeys "{TAB}", True '4
 SendKeys "{TAB}", True '4
 SendKeys "{TAB}", True '4

 SendKeys "{ENTER}", True

While ie.Busy

DoEvents

Wend

End Sub

Preciso de uma ajuda para encotrar uma alternativa diferente do Senkeys e para copiar a tabela, sem utilizar a consulta do excel.

Posso utilizar o innertext? Como?

É urgente, se puderem ajudar. grato