Problema: Preciso fazer o download de duas planilhas as quais acesso a URL de download só com um nome informado pelo usuário,
e dessas duas planilhas preciso tirar alguns dados sem abri-las.
Complicação: Aqui na empresa toda vez que abrimos o IE, ou qualquer outro navegador, precisamos autenticar a entrada, com Usuário e Senha.
Vizualizem a imagem da tela de autenticação:
Feito até então: as URL's de download estão OK!
Consegui abrir cada página através da macro, só que preciso clicar em download...
Tentei usar o URLdownloadtoFile mas não consegui.
Código já feito:
Aqui só está com uma página!
Código: Selecionar todos
Public Sub download()
'Declaração de variáveis
Dim sURL As String
Dim municipio As Variant
Dim munURL As String
Dim munCOD As Long
'Adéqua o nome entrado pelo usuário ao nome usado no site do IBGE
municipio = InputBox("Informe o município")
For i = 3 To 168
If UCase(municipio) = UCase(Cells(i, 2)) Then
munURL = Cells(i, 3)
munCOD = Cells(i, 1)
Exit For
End If
Next i
sURL = "http://www.ibge.gov.br/cidadesat/xtras/csv.php?tabela=financas&codmun=" & munCOD & "&nomemun=" & munURL
'Abre a página de download
Dim ie As Object
Set ie = CreateObject("InternetExplorer.Application")
ie.Navigate (sURL)
ie.Visible = True
End Sub
Como não consegui anexar a planilha aqui vou botar alguns dados para vocês testarem:
Coluna A | Coluna B | Coluna C
Código | Município | Munípio ajustado a URL do IBGE
240810 | Natal | Natal
240325 | Parnamirim | Parnamirim
240200 | Caicó | Caic%F3
240240 | Carnaúba dos Dantas | Carna%FAba%20dos%20Dantas
241240 | São José do Seridó | S%E3o%20Jos%E9%20do%20Serid%F3
240800 | Mossoró | Mossor%F3
241210 | São João do Sabugi | S%E3o%20Jo%E3o%20do%20Sabugi
240940 | Pau dos Ferros | Pau%20dos%20Ferros
240310 | Currais Novos | Currais%20Novos
Me ajudem, =D
Obrigado desde já.