Tomás Vásquez Fórum

Código: Selecionar todos

Sub BaseOcupadas_novo()

Set driver = New ChromeDriver

MyLogin = "login"
MyPass = "senha"

'abrir pagina
driver.get "http://atendimento.oi.com.br/Atendimento/oi-pra-negocios/portal-corporativo/relatorios/relatorio-redes-inteligentes"


    'inserir login e senha
    driver.FindElementById("login").SendKeys MyLogin
    driver.FindElementById("senha").SendKeys MyPass
    'clicar no botão ok
    driver.FindElementByClass("bt").Click
    
    'navegar para a página do relatório
    'AQUI TAMBÉM ABRE UMA JANELA EXTRA - DESCARTAR
driver.get "http://signs.telemar.com.br/signs/relatorios/rel_desempenhoRI_SGS.jsp"
'clicar em gerar relatorio
driver.FindElementByName("botaoGerarRelatorio").Click

'travei aqui
driver.FindElementBy???("????").Click

'O CÓDIGO DO BOTÃO QUE EU PRECISO CLICAR
<input type="button" value="Gerar CSV" style="font-family: verdana; font-size: 10px; width: 70px" onclick="exportarRelatorioCSV()">

driver.Quit

End Sub

Código: Selecionar todos

'http://www.macoratti.net/d300801.htm
'Veja como fazer o download de  arquivos sem usar qualquer controle adicional . Você só precisa saber a URL do arquivo que quer baixar e pronto.
Public Function DownloadFile(URL As String, LocalFilename As String) As Boolean
Dim lngRetVal As Long
lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
If lngRetVal = 0 Then
   DownloadFile = True
   MsgBox "O downloada foi realizado com sucessso !"
Else
   MsgBox "Ocorreu um erro durante a conexão. "
End If
End Function
Public Sub Command1_Click()
'argumentos: a url do arquivo que quer baixar e o local e nome
Ret = DownloadFile("http://www.tomasvasquez.com.br/downloads/modelocadastro.zip", "c:\temp\arquivo.zip")

End Sub