Re: Clicar em botão na web - nao funciona
Enviado: Qui Mai 05, 2016 10:17 pm
Public Sub AAAAAAAAAAAA2222()
Dim selenium As New SeleniumWrapper.WebDriver
selenium.Start "chrome", "http://cvmweb.cvm.gov.br/"
selenium.Open "/SWB/Sistemas/SCW/CPublica/CiaAb/FormBuscaCiaAb.aspx?TipoConsult=c"
selenium.Type "id=txtCNPJNome", "EZ TEC"
selenium.clickAndWait "id=btnContinuar"
selenium.clickAndWait "id=dlCiasCdCVM__ctl1_Linkbutton9"
selenium.clickAndWait "link=Valores Mobiliários negociados e detidos (art. 11 da Instr. CVM nº 358)"
'selenium.clickAndWait "link=Download"
'selenium.clickAndWait "xpath=(//a[contains(text(),'Download')])[2]"
'selenium.clickAndWait "xpath=(//a[contains(text(),'Download')])[3]"
Dim tbDados As SeleniumWrapper.WebElementCollection
Dim iCell, iTotal As Integer
Set tbDados = selenium.findElementsByXPath("//td")
iTotal = tbDados.Count - 1
For iCell = 0 To iTotal
ajud = Left(tbDados.Item(iCell).Text, 10)
If Left(tbDados.Item(iCell).Text, 10) = "11/04/2016" Then
tbDados.Item(iCell - 6).findElementByTagName("a").Click
End If
Next iCell
selenium.stop
End Sub
------
Boa! Ajudou d+ !! Fiz uma pequena modificação no codigo - acho que pra mim funciona melhor olhar o dia que a data de entrega foi feito e fazer o download se a data for igual a uma determinada. Ta funcionando perfeitamente.
A ultima coisa agora pra fechar com chave de ouro! Confesso que já estou até um pouco envergonhado, mas procurei um bom tempo e não achei haha
Esse arquivo que foi baixado preciso salvar em uma pasta especifica com um nome especifico (provavelmente seria o nome da empresa + horario de entrega numa nova pasta na rede nomeada pelo nome da empresa e dia). Tentei gravar a macro via Selenium IDE mas no Firefox não apareceu a opção de 'Salvar como' dai nao vi o codigo.
Tem alguma maneira de fazer isso?
Obrigado, voce não faz ideia do quanto me ajudou! Adquiri uma nova habilidade que vai ser super util aqui
abraços
Dim selenium As New SeleniumWrapper.WebDriver
selenium.Start "chrome", "http://cvmweb.cvm.gov.br/"
selenium.Open "/SWB/Sistemas/SCW/CPublica/CiaAb/FormBuscaCiaAb.aspx?TipoConsult=c"
selenium.Type "id=txtCNPJNome", "EZ TEC"
selenium.clickAndWait "id=btnContinuar"
selenium.clickAndWait "id=dlCiasCdCVM__ctl1_Linkbutton9"
selenium.clickAndWait "link=Valores Mobiliários negociados e detidos (art. 11 da Instr. CVM nº 358)"
'selenium.clickAndWait "link=Download"
'selenium.clickAndWait "xpath=(//a[contains(text(),'Download')])[2]"
'selenium.clickAndWait "xpath=(//a[contains(text(),'Download')])[3]"
Dim tbDados As SeleniumWrapper.WebElementCollection
Dim iCell, iTotal As Integer
Set tbDados = selenium.findElementsByXPath("//td")
iTotal = tbDados.Count - 1
For iCell = 0 To iTotal
ajud = Left(tbDados.Item(iCell).Text, 10)
If Left(tbDados.Item(iCell).Text, 10) = "11/04/2016" Then
tbDados.Item(iCell - 6).findElementByTagName("a").Click
End If
Next iCell
selenium.stop
End Sub
------
Boa! Ajudou d+ !! Fiz uma pequena modificação no codigo - acho que pra mim funciona melhor olhar o dia que a data de entrega foi feito e fazer o download se a data for igual a uma determinada. Ta funcionando perfeitamente.
A ultima coisa agora pra fechar com chave de ouro! Confesso que já estou até um pouco envergonhado, mas procurei um bom tempo e não achei haha
Esse arquivo que foi baixado preciso salvar em uma pasta especifica com um nome especifico (provavelmente seria o nome da empresa + horario de entrega numa nova pasta na rede nomeada pelo nome da empresa e dia). Tentei gravar a macro via Selenium IDE mas no Firefox não apareceu a opção de 'Salvar como' dai nao vi o codigo.
Tem alguma maneira de fazer isso?
Obrigado, voce não faz ideia do quanto me ajudou! Adquiri uma nova habilidade que vai ser super util aqui
abraços