VBA循环处理网站CSV文件时未等待工作簿操作完成即执行的问题

我太懂你的处境了——每天要处理的CSV文件都不一样，只能从Excel视图里拿到唯一引用，还好之前有现成的VBA代码能复用，而且终端用户只要工具能用就行，手动处理这些文件确实效率低到让人崩溃。现在卡在VBA不等工作簿打开/关闭就往下跑，流程直接乱掉，对吧？

给你几个实用的解决办法，亲测有效：

一、让VBA等待工作簿完全打开 #

如果是直接通过URL或本地路径打开CSV，VBA有时候会因为文件加载慢（尤其是网络文件）直接跳过等待，这时候可以用循环+DoEvents来强制等待：

Dim targetWB As Workbook
Dim targetFileName As String
targetFileName = "要打开的文件名.csv" ' 替换成你的目标文件名

' 尝试获取工作簿对象
On Error Resume Next
Set targetWB = Workbooks(targetFileName)
On Error GoTo 0

' 循环等待，直到工作簿加载完成
Do While targetWB Is Nothing
    DoEvents ' 让Excel处理后台加载任务
    On Error Resume Next
    Set targetWB = Workbooks(targetFileName)
    On Error GoTo 0
Loop

' 现在可以安全操作targetWB了

如果是从网页加载CSV，更稳妥的方式是先把文件下载到本地临时文件夹，再打开本地文件——同步下载会强制VBA等待文件准备好：

Dim http As Object
Dim tempPath As String
Dim targetWB As Workbook
Dim csvUrl As String
csvUrl = "你的CSV文件在线链接" ' 替换成实际URL

Set http = CreateObject("WinHTTP.WinHTTPRequest.5.1")
tempPath = Environ("TEMP") & "\temp_" & Format(Now(), "YYYYMMDDHHMMSS") & ".csv" ' 生成唯一临时文件

' 同步下载文件，会等待下载完成再继续
http.Open "GET", csvUrl, False
http.Send

' 把下载内容写入临时文件
Open tempPath For Binary As #1
Put #1, , http.ResponseBody
Close #1

' 打开本地文件，加载速度快且状态可控
Set targetWB = Workbooks.Open(tempPath)

二、让VBA等待工作簿彻底关闭 #

处理完文件关闭后，VBA可能会因为界面刷新延迟，误以为工作簿还在，这时候同样用循环等待：

' 先关闭目标工作簿
targetWB.Close SaveChanges:=False ' 根据需求设置是否保存

' 循环检查工作簿是否已关闭
Do
    DoEvents
    On Error Resume Next
    Set targetWB = Workbooks(targetFileName)
    On Error GoTo 0
Loop While Not targetWB Is Nothing

额外小技巧 #

批量处理时，可以先把Application.ScreenUpdating设为False，既能加快处理速度，还能减少界面刷新带来的线程冲突，记得处理完所有文件后再恢复为True：

Application.ScreenUpdating = False

' 你的循环处理代码...

Application.ScreenUpdating = True

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