Errore URLDowloadTofile -2146697208

[Ermitage]

Hi everyone,
I've been struggling with this problem for a few days now, so I would like to thank anyone who can help me I have a simple SUB which until recently worked perfectly and downloaded an excel file from the C.M.E. websitegroup
For a few days now on a PC on which M. Excel 365 is installed I have an error in the result (result in the VBA code) of the URLDownloadToFile command equal to -2146697208

I would like to point out that on a PC where I have installed M. Excel 2019 works perfectly,

I kindly ask for help especially in interpreting the error code

Private Declare PtrSafe Function URLDownloadToFile Lib "urlmon" _

    Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, _

    ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long



Private Sub ScaricaFile()

    Url = "https://www.cmegroup.com/CmeWS/exp/voiProductDetailsViewExport.ctl?media=xls&tradeDate=20220225&reportType=P&productId=133"'

    dlpath = "C:\Users\OneDrive\Documents\My document\Option\"'

    result = URLDownloadToFile(0, Url, dlpath & "VoiDetailsForProduct.xls", 0, 0)

    If result <> 0 Then

        Application.Wait (Now + TimeValue("00:00:03")) ' Attendi 3 secondi e riprova

        result = URLDownloadToFile(0, Url, dlpath & "VoiDetailsForProduct.xls", 0, 0)

    End If

End Sub

 

[NdNoviceHlp]

Hi *Ermitage. Make sure that your one drive is syncing before you run the api. HTH. Dave
ps. Welcome to the Board!

 

[Domenic]

Also, pCaller and lpfnCB are pointers, and should be declared as LongPtr in an API function delcared as PtrSafe...

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

Hope this helps!

 

[Ermitage]

Hi all,
thanks for you replies, unfortunately the error is still present, please can you try that code snd tell me your excel version?

 

[NdNoviceHlp]

Hi again *Ermitage. Your local path has an extra apostrophe at the end of it ? Anyways, maybe the URL has changed? Ensure that the URL path is correct. We don't have your local drive to test the API and your local path doesn't look right to me. You can trial this...

 dlpath = (Environ("onedrive") & "\Documents\My document\Option\")

HTH. Dave

 

[Ermitage]

dlpath = (Environ("onedrive") & "\Documents\My document\Option\")

I tried but nothing change. URL is correct because if you try to open it in the browser you can download the file.

 

[Domenic]

Enter the following line of code in the Immediate Window (Visual Basic Editor >> View >> Immediate Window), and press ENTER...

? Dir(Environ("onedrive") & "\Documents\My document\Option", vbDirectory)

If the path to your folder Option is correct, it should return the text "Option". Does it return "Option" ?