VBA code to download zip and extract csv file from it and save with specified name

[playtime007]

I am having a simple application in excel to download all zip urls in column "C" column "C" has urls and column "Q" has names Every url has 1 zip file and every zip has 1 csv in it. What I want to do is to 1. unzip the CSV files and save them with names as mentioned in column "Q" 2. Kill all the zip 3. CSV file must be overwritten as I will be doing this task on daily basis so when the next day or next time I perform the task it must overwrite the previous file

Sub Download_All()
Dim lr As Long
Dim fileurl As String, filename As String
Dim r As Long
lr = Sheets("Downloads").Range("C" & Rows.Count).End(xlUp).Row
For r = 5 To lr
    fileurl = Sheets("Downloads").Range("C" & r).Value


    If InStr(1, fileurl, ".zip") <> 0 Then
        filepath = "C:\MyDownloads\"

    End If
            Dim Obj1 As Object
    Set Obj1 = CreateObject("Microsoft.XMLHTTP")
    Obj1.Open "GET", fileurl, False
    Obj1.send
    If Obj1.Status = 200 Then
        Set Obj2 = CreateObject("ADODB.Stream")
        Obj2.Open
        Obj2.Type = 1
        Obj2.Write Obj1.responseBody
        Obj2.SaveToFile (filepath & getfilename(fileurl)), 2 ' 1 = no overwrite, 2 = overwrite

        Obj2.Close
    End If
    Next r
End Sub

Function getfilename(filepath As String)
    Dim v_string() As String
    v_string = Split(filepath, "/")
    getfilename = v_string(UBound(v_string))
End Function

 

[Yongle]

No need , but thanks for the offer

 

[playtime007]

THANKS MATE,

have 2 questions, I am not a programmer, I have been making a macro to download some set of files for my personal use as you already looked.
But, I cant upload all my stuff together as it will be very complicated so i am going step by step.

In my 2/3 steps I have to download a file which is actually not a .zip file and hence cannot be defined in our previous codes I think, and also the server doesnt allow simply to download.
That is a .dat file actually. So i have a program in 2 sets 1st it downloads .dat file and then it opens a sheet and paste the value as comma delimited and save it as .csv and close it

So, my 1st question is, is it possible to covert .dat file into .csv file without opening it asmy programs opens a sheet and paste values from dat file as comma delimited.?

My 2nd question is I have an Excel File in which I have built a macro to get data from other excel files using vlookup,
So the program opens 1st file, get data and close it and then opens 2nd one, gets data and close it and so on.....

So, is this the Right Way or I can look into pasting the data without opening the source files as well.
I was not able to get the answer anywhere, I searched youtube and google.

 

[Yongle]

I suggest you post those questions on a new thread