VBA URL save the csv file to folder location

[JJCA99]

Hello all,

i've read through many codes and none seem to be working for the URL or the csv file i'm trying to save.


The below code didn't save the file with my data looked like the below pic.

One code I've used:

Option Explicit

Private Declare PtrSafe Function URLDownloadtoFile Lib "urlmon" Alias "URLDownloadToFileA" ( _
ByVal pCaller As LongPtr, _
ByVal szURL As String, _
ByVal szFileName As String, _
ByVal dwReserved As LongPtr, _
ByVal lpfnCB As LongPtr) As LongPtr

Sub SFDC_Rpt()

Dim FileURL As String
Dim SFilename As String


FileURL = "https://example.com/123q2341324ddEf?view=d&snip&export=1&enc=UTF-8&xf=csv"
SFilename = "C:\URLTest\Test.csv"

URLDownloadtoFile 0, FileURL, SFilename, 0, 0

End Sub

Any help on why I can't save my file would be greatly appreciated.

JF

 

[Zack Barresse]

If your URL is that of an actual CSV, your code looks like it will work, albeit not structured for 32-bit pre-Excel 2010. The URL you supplied is just a web page, so you got the source code as the contents.

 

[JJCA99]

If your URL is that of an actual CSV, your code looks like it will work, albeit not structured for 32-bit pre-Excel 2010. The URL you supplied is just a web page, so you got the source code as the contents.

Hey Zack i'm not sure I follow on how to fix that? I have the hyperlink to the URL in my workbook and when I click on it it downloads the file but I can't seem to get the macro to download and open the file.