使用excel vba下载csv文件的URL

使用excel vba下载csv文件的URL,excel,vba,web-scraping,vba7,Excel,Vba,Web Scraping,Vba7,例如,我可以从下面的链接下载csv文件吗。 "https://www.nseindia.com/corporates-pit?index=equities&symbol=WABCOINDIA&csv=true" 尝试了以下代码,但没有成功 Private Declare PtrSafe Function URLDownloadToFile Lib "urlmon" _ Alias "URLDownloadToFileA" (ByVal pCalle

例如,我可以从下面的链接下载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, 0)
    If returnVal = 0 Then
        Debug.Print "Download ok!"
    Else
        Debug.Print "Error"
    End If
    
End Sub

“不走运”并不是对运行代码时发生的情况的有用描述
Set wb=WorkBooks.open(myFile)
work@TimWilliams,谢谢你的回复,我无法下载该文件,你能从你这边试试吗。它说服务器是Busy收到一条消息来检查地址My bad,抱歉@TimWilliams正确的URL在下面。你也可以尝试在罗马的匿名窗口吗