Apenas uma sugestão da FYI BruceWayne funcionou para mim, mas eu só tive que mudar (0)
para (1)
.
IE.document.getElementsByName("Action")(1).Click
Estou tentando manipular um site interno usando o vba, mas me deparei com um problema. Atualmente, meu script abaixo abre a página da Web e insere os valores da célula a1 na planilha1 na caixa de texto da página da Web. Meu problema é quando eu tento clicar no botão de pesquisa recebo a seguinte mensagem "run time error 438 O objeto não suporta esta propriedade ou método". Eu tentei algumas maneiras diferentes, mas nenhuma funciona. Também adicionei as propriedades do botão quando inspeciono o elemento. Obrigado!
<input name="Action" onclick="this.disabled=true; this.form.submit();" type="submit" value="Search">
Sub autoIE()
Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
IE.navigate "webpage.com"
IE.Visible = True
While IE.Busy
DoEvents
Wend
IE.document.all("lookupNumberId").Value = ThisWorkbook.Sheets("Sheet1").Range("a1")
IE.document.all("Action").Click 'error 438
IE.document.getElementByName("Action").Click 'error 438
End Sub
Tags microsoft-excel macros vba