With ie
Application.Wait (Now + TimeValue("0:00:2"))
.Navigate "http://mime.lzt.com.br/relatorio/movimento/"
While .Busy Or .ReadyState < 4: DoEvents: Wend
Application.Wait (Now + TimeValue("0:00:5"))
Set x = ie.document.getElementsByName("tipo_periodo")
x(1).Click
.document.getElementById("id_data_ini").Click
Dim data_inicial As String
data_inicial = LoginData.Cells(2, 11).Value
ie.document.getElementById("id_data_ini").innerText = data_inicial
Dim hoje As String
hoje = LoginData.Cells(3, 11).Value
.document.getElementById("id_data_fim").Click
.document.getElementById("id_data_fim").innerText = hoje
Application.Wait (Now + TimeValue("0:01:00"))
Application.SendKeys "%{S}"
End With
- Figura 1.png (26.4 KiB) Exibido 4070 vezes
Quando o download libera, esta janela auxiliar com a opção de “salvar como” aparece e, até o presente momento, a única forma que encontrei para confirmar o download foi usando a linha Application.SendKeys "%{S}", mas isso é um limitante muito grande no meu caso, pois a internet aqui oscila muito, fazendo com que o tempo carregamento seja variável. Além disso, a quantidade de dados em cada mês é variável também, então pode acontecer de termos uma planilha mais extensa em um determinado mês e outra pequena no próximo. Bem, sabendo que o tempo de download é diferente, pensei que seria possível usar um tempo extremamente grande, na faixa de 1 minuto, mas o problema é que isso apenas deixa o programa mais lento e ineficaz. Eu gostaria de saber se existe alguma forma de saber o momento exato em que a janela aparece.
