从 Sharepoint 下载 Excel 文件，保存到桌面

Question

I am trying to download an excel file stored in sharepoint (no unc path available) to my desktop.

This code below seems to work and create "CST.xlsx" but I get an error msg:

Notes: Url for excel file is taken directly from the web address bar and everthing after ".xlsx" is removed.

Code:

    Private Declare 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
    
    Function DownloadFileFromWeb(strURL As String, strSavePath As String) As Long
        ' strSavePath includes filename
        DownloadFileFromWeb = URLDownloadToFile(0, strURL, strSavePath, 0, 0)
    End Function
    
    Sub download()
    
    Call DownloadFileFromWeb("url.xlsx", "Desktop\download\CST.xlsx")
    
    End Sub

Answer 1

请参阅我在此线程中关于相同问题的回答以获取解决方法。