VBA批量下载CSV异常求助：分步执行正常，整批执行失败

这种分步按F8跑完全正常，批量执行就丢文件甚至全失败的情况，我在Stack Overflow上见过太多次了——核心问题就是VBA执行速度远快于网络请求，没等前一次下载操作完成就跳去执行下一次调用，要么把未完成的下载冲掉，要么触发资源冲突，甚至被网站反爬机制拦截。

结合你的场景，Sub DownloadIshares()大概率存在以下几个问题之一，对应修复方案给你列出来：

1. 用了异步网络请求却没等它跑完 #

如果你的代码里用了MSXML2.XMLHTTP的异步模式（也就是objXML.Open "GET", url, True里第三个参数设为True），批量运行时VBA根本不会等这个请求完成，直接启动下一次下载，导致前一次的请求被中断或者资源被抢占，自然下载不全。

修复：改用同步请求，确保下载完成再往下走

Sub DownloadIshares(url As String, savePath As String)
    Dim xmlHttp As Object
    Dim fileStream As Object
    
    ' 创建对象，用6.0版本更稳定
    Set xmlHttp = CreateObject("MSXML2.XMLHTTP.6.0")
    Set fileStream = CreateObject("ADODB.Stream")
    
    ' 同步模式（第三个参数设为False）
    xmlHttp.Open "GET", url, False
    xmlHttp.send
    
    ' 先检查请求是否成功
    If xmlHttp.Status = 200 Then
        With fileStream
            .Open
            .Type = 1 ' 二进制模式，避免CSV编码乱码问题
            .Write xmlHttp.responseBody
            .SaveToFile savePath, 2 ' 2表示覆盖已有文件
            .Close
        End With
        Debug.Print "成功下载：" & savePath ' 调试用，直观查看下载进度
    Else
        Debug.Print "下载失败，状态码：" & xmlHttp.Status & " | 文件：" & savePath
    End If
    
    ' 必须释放对象，避免资源泄漏
    Set fileStream = Nothing
    Set xmlHttp = Nothing
End Sub

2. 用URLDownloadToFile但没处理超时和等待 #

如果你的代码调用了Windows API的URLDownloadToFile，批量运行时网络延迟可能导致函数还没写完文件，VBA就启动了下一次调用，而且这个函数默认不会等待完成。

修复：加循环等待，直到下载完成或超时
首先在模块顶部声明API（兼容32/64位Office）：

#If VBA7 Then
    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
#Else
    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
#End If

然后修改下载子程序：

Sub DownloadIshares(url As String, savePath As String)
    Dim downloadResult As Variant
    Dim startTime As Double
    Const MAX_TIMEOUT As Double = 15 ' 设置15秒超时，可根据网络情况调整
    
    startTime = Timer
    Do
        #If VBA7 Then
            downloadResult = URLDownloadToFile(0, url, savePath, 0, 0)
        #Else
            downloadResult = URLDownloadToFile(0, url, savePath, 0, 0)
        #End If
        
        ' 0表示下载成功，退出循环
        If downloadResult = 0 Then Exit Do
        DoEvents ' 让系统处理网络消息，避免VBA假死
    Loop Until Timer - startTime > MAX_TIMEOUT ' 超时就停止等待
    
    If downloadResult <> 0 Then
        Debug.Print "下载超时/失败，错误码：" & downloadResult & " | 文件：" & savePath
    End If
End Sub

3. 对象没释放，导致资源冲突 #

如果每次调用DownloadIshares都创建了对象（比如XMLHTTP、Stream甚至IE浏览器对象），但子程序结束时没把这些对象销毁，多次调用后会导致系统资源耗尽，后续下载就会失败。

修复：每次调用结束后必须手动释放对象
就像第一个方案里的Set fileStream = Nothing和Set xmlHttp = Nothing——别小看这两行，批量运行时资源泄漏是隐形杀手，很容易导致不可预测的失败。

4. 网站反爬拦截了频繁请求 #

分步执行时你手动按F8，间隔时间长，网站不会认为是爬虫；但批量运行时请求太密集，可能触发网站的频率限制，直接拒绝后续请求。

修复：添加合理的延迟，别让请求太急
在每次下载完成后加个2-3秒的延迟（别用Sleep，会让VBA假死，用Timer+DoEvents实现友好延迟）：

Sub DownloadIshares(url As String, savePath As String)
    ' 这里放你的下载代码...
    
    ' 添加2秒延迟
    Dim delayUntil As Double
    delayUntil = Timer + 2
    Do While Timer < delayUntil
        DoEvents
    Loop
End Sub

最后建议 #

先优先排查异步请求未等待的问题，这是最常见的元凶。然后可以在每次下载后加Debug.Print输出日志，这样能清楚看到哪些文件成功、哪些失败，方便定位问题。

内容的提问来源于stack exchange，提问作者Philipp_PK