Código: Selecionar todos
Sub Certidão_Trabalhista()
Set objIE = CreateObject("InternetExplorer.Application")
With objIE
.StatusBar = False
.Toolbar = False
.Resizable = True
.AddressBar = False
.Visible = True
.Navigate "http://www.tst.jus.br/certidao"
Do While .Busy Or _
.ReadyState <> 4
DoEvents
Loop
'Codigo que tentei usar para clicar no botão "Emitir Certidão" (porém,sem sucesso)
.Document.getElementsByClassName("j_id_jsp_1384250394_2:j_id_jsp_1384250394_3").Click
'Dados que serão inseridos na próxima página do site
.Document.all.Item("gerarCertidaoForm:cpfCnpj").innerText = "000007401000173"
.Document.getElementByid("txtTexto_captcha_serpro_gov_br").Focus
End With
Set objIE = Nothing
End Sub