如何让VBA宏等待SAP导出的EXPORT.XLSB下载打开后再执行？

你当前用固定30秒等待的方式无法适配不同的导出耗时，导致宏提前执行时目标文件还未完成打开，激活的仍是原工作簿。以下是两种更可靠的等待方案：

方案1：循环检查文件存在性与可访问状态 #

先确认SAP已完成文件写入，再等待Excel加载该文件，替换原代码中固定等待的循环部分：

Dim targetPath As String
Dim waitTime As Double
Dim startTime As Double
Dim targetWB As Workbook

targetPath = "C:\Users\USER1\_Tables MainFolder\Export\EXPORT.XLSB"
waitTime = 60 ' 设置最长等待时长，单位：秒
startTime = Timer

' 循环等待直到文件可用或超时
Do While Timer < startTime + waitTime
    ' 检查文件是否已生成
    If Dir(targetPath) <> "" Then
        ' 尝试获取已打开的工作簿对象
        On Error Resume Next
        Set targetWB = Workbooks("EXPORT.XLSB")
        On Error GoTo 0
        
        If Not targetWB Is Nothing Then
            ' 文件已成功打开，激活并退出循环
            targetWB.Activate
            MsgBox ("activeworkbook = " & ActiveWorkbook.Name)
            Exit Do
        End If
    End If
    ' 每次循环等待0.5秒，减少资源占用
    Application.Wait Now + TimeValue("00:00:00.5")
Loop

' 超时提示
If targetWB Is Nothing Then
    MsgBox "等待EXPORT.XLSB打开超时"
End If

方案2：直接监控Excel工作簿集合 #

直接检查Excel已加载的工作簿列表，直到目标文件出现：

Dim targetWB As Workbook
Dim waitTime As Double
Dim startTime As Double

waitTime = 60 ' 最长等待60秒
startTime = Timer

Do While Timer < startTime + waitTime
    On Error Resume Next
    Set targetWB = Workbooks("EXPORT.XLSB")
    On Error GoTo 0
    
    If Not targetWB Is Nothing Then
        targetWB.Activate
        MsgBox ("activeworkbook = " & ActiveWorkbook.Name)
        Exit Do
    End If
    Application.Wait Now + TimeValue("00:00:00.5")
Loop

If targetWB Is Nothing Then
    MsgBox "等待EXPORT.XLSB打开超时"
End If

注意事项 #

• 确保targetPath是导出文件的完整路径（包含文件名），如果SAP导出时自动生成的文件名有变化，需同步修改。
• 根据实际导出速度调整waitTime参数，避免过长或过短。
• 替换原代码中从Dim aa到MsgBox的所有内容为上述任意一段代码即可。

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