Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Donwload de arquivo...
 
Notifications
Clear all

Donwload de arquivos em um site

 
2024 - VBA & Macros
2 Posts
2 Usuários
0 Reactions
911 Visualizações
RSS
 Djanilton
(@djanilton)
Posts: 2
Active Member
Topic starter
 

Pessoal,

Gostaria de saber se existe alguma maneira de fazer o download de vários arquivos em um site, sem saber o nome do arquivo, tipo pesquisando todos os arquivos existentes e fazendo download automático para uma pasta específica do meu computador.

Obs.: Alguns sites não tem o link para o arquivo, mas sim um link para um html que contem as informações que eu desejo baixar.

Tem algum código vba do excel que me permita fazer isto?

 
Postado : 26/04/2013 1:18 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

Eu não sei ao certo da forma como quer.
Leia:
http://access.mvps.org/access/modules/mdl0037.htm
http://social.msdn.microsoft.com/Forums ... 85d941fad/

Sub TenteAdaptar()
    Dim strSavePath As String
    Dim URL As String, ext As String
    Dim buf, ret As Long
    URL = Worksheets("References & Resources").Range("URLMSL").Value
    buf = Split(URL, ".")
    ext = buf(UBound(buf))
    strSavePath = ThisWorkbook.Path & "" & "DownloadedFile." & ext
    ret = URLDownloadToFile(0, URL, strSavePath, 0, 0)
    If ret = 0 Then
        MsgBox "Download feito com sucesso!!"
    Else
        MsgBox "Error"
    End If
End Sub

Att

 
Postado : 26/04/2013 3:38 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico