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