使用Excel VBA下载CSV文件的URL

问题描述

例如，有什么方法可以从下面的链接下载csv文件。 “ https://www.nseindia.com/corporates-pit?index=equities&symbol=WABCOINDIA&csv=true”

尝试了以下代码，但没有成功。

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

Public Sub Valuebuy()

myfile = "https://www.nseindia.com/corporates-pit?index=equities&symbol=WABCOINDIA&csv=true"

  Dim targetFile As String,targetUrl As String,returnVal As Double
    Target = "https://www.nseindia.com/api/corporates-pit?index=equities&symbol=WABCOINDIA&csv=true"
    strSavePath = "C:\testdownload.txt"
    returnVal = URLDownloadToFile(0,Target,strSavePath,0)
    If returnVal = 0 Then
        Debug.Print "Download ok!"
    Else
        Debug.Print "Error"
    End If
    
End Sub

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）