download .csv file from web

[sal21]

about this link, how to download the .csv file, and save it ion c:\test\comuni_geocoded.csv
Tks.

geolocalizzazione-comuni-italiani/comuni_geocoded.csv at main · gnekt/geolocalizzazione-comuni-italiani

[Geolocalizzazione comuni italiani] Csv che comprende le informazioni di posizionamento geografico in latitudine e longitudine di tutti i comuni italiani - gnekt/geolocalizzazione-comuni-italiani

github.com

naturally via VBA code

 

[BennyBatt]

Hi.
I read only today your request, so probably it's late.
Anyway, I don't have a complete solution but I think you can workaround to find the solution starting from this code.

Dim URL As String
Dim dat1 As Long, dat2 As Long

URL = ActiveSheet.Cells(2, 2)

Dim Dir_csv As String
Dir_csv = "C:\Temp\fileOut.csv" to change with yours

Dim WinHttpReq As Object
Dim objStream As Object
Set WinHttpReq = CreateObject("Microsoft.XMLHTTP")
WinHttpReq.Open "GET", URL, False
WinHttpReq.send

If WinHttpReq.Status = 200 Then
    Set objStream= CreateObject("ADODB.Stream")
    objStream.Open
    objStream.Type = 1
    objStream.Write WinHttpReq.responseBody
    objStream.SaveToFile Dir_csv, 2
    objStream.Close
    
Else
    MsgBox (WinHttpReq.Status & " : Not found")
End If

I tried quickly and the resulting .csv is not as "clean" as necessary. But, probably, you can arrange it properly.
Hope this could help you.

 

[sal21]

Hi.
I read only today your request, so probably it's late.
Anyway, I don't have a complete solution but I think you can workaround to find the solution starting from this code.

Dim URL As String
Dim dat1 As Long, dat2 As Long

URL = ActiveSheet.Cells(2, 2)

Dim Dir_csv As String
Dir_csv = "C:\Temp\fileOut.csv" to change with yours

Dim WinHttpReq As Object
Dim objStream As Object
Set WinHttpReq = CreateObject("Microsoft.XMLHTTP")
WinHttpReq.Open "GET", URL, False
WinHttpReq.send

If WinHttpReq.Status = 200 Then
    Set objStream= CreateObject("ADODB.Stream")
    objStream.Open
    objStream.Type = 1
    objStream.Write WinHttpReq.responseBody
    objStream.SaveToFile Dir_csv, 2
    objStream.Close
   
Else
    MsgBox (WinHttpReq.Status & " : Not found")
End If

I tried quickly and the resulting .csv is not as "clean" as necessary. But, probably, you can arrange it properly.
Hope this could help you.

tsk bro the code work, perfect!

 

[MyHanhCB]

Hi.
I read only today your request, so probably it's late.
Anyway, I don't have a complete solution but I think you can workaround to find the solution starting from this code.

Dim URL As String
Dim dat1 As Long, dat2 As Long

URL = ActiveSheet.Cells(2, 2)

Dim Dir_csv As String
Dir_csv = "C:\Temp\fileOut.csv" to change with yours

Dim WinHttpReq As Object
Dim objStream As Object
Set WinHttpReq = CreateObject("Microsoft.XMLHTTP")
WinHttpReq.Open "GET", URL, False
WinHttpReq.send

If WinHttpReq.Status = 200 Then
    Set objStream= CreateObject("ADODB.Stream")
    objStream.Open
    objStream.Type = 1
    objStream.Write WinHttpReq.responseBody
    objStream.SaveToFile Dir_csv, 2
    objStream.Close
   
Else
    MsgBox (WinHttpReq.Status & " : Not found")
End If

I tried quickly and the resulting .csv is not as "clean" as necessary. But, probably, you can arrange it properly.
Hope this could help you.

Hello, please allow me to post in another article. Can you help me with a piece of code used to download an excel file (.xls) from "Đơn vị hành chính"
to the workstation. Thank you.