File Download - Excel-Firefox

Question

File Download - Excel-Firefox

I have the link to download an xls file. Every day I need to download this file (I can only access by firefox), save in a folder to feed my spreadsheet.(the spreadsheet is "linked" to that file. I need a macro that does: download this file(the link is already ready) automatically to a folder.

1

excel download firefox atualização

Author: Juniorjk123, 2017-05-07

Source

1 answers

score 0 · Answer 1

Try using the following adapted function with your data:

Sub downloadFile()
    Dim myURL As String

    myURL = "http://portal.convenios.gov.br/images/docs/CGSIS/csv/siconv.zip" ' Coloque sua URL aqui!!!


    Dim WinHttpReq As Object
    Set WinHttpReq = CreateObject("Microsoft.XMLHTTP")
    WinHttpReq.Open "GET", myURL, False
    WinHttpReq.Send

    myURL = WinHttpReq.ResponseBody
    If WinHttpReq.Status = 200 Then
        Set oStream = CreateObject("ADODB.Stream")
        oStream.Open
        oStream.Type = 1
        oStream.Write WinHttpReq.ResponseBody
        oStream.SaveToFile ("C:\Users\user\Downloads\file.zip")
        oStream.Close
    End If
End Sub

Code adapted from:

Https://social.msdn.microsoft.com/Forums/en-US/bd0ee306-7bb5-4ce4-8341-edd9475f84ad/excel-2007-use-vba-to-download-save-csv-from-url