升级至Microsoft 365后Macro/VBA代码无法运行求助

原代码的核心问题 #

1. 依赖活动工作簿的判断逻辑错误：循环条件是Do Until ActiveWorkbook.Name = "EXPORT.XLSX"，但EXPORT.XLSX可能已经打开却并非当前活动工作簿，导致循环永远无法结束。
2. 提前触发激活错误：在循环内直接执行Workbooks("EXPORT.XLSX").Activate，如果文件未加载完成会直接抛出错误，中断流程，后续错误处理也无法补救。
3. 等待效率极低且无超时机制：每次固定等待1分钟，既浪费时间，又没有超时限制，容易导致程序无限挂起。

修正后的代码 #

' 等待EXPORT.XLSX加载完成并获取工作簿引用
Dim targetWB As Workbook
Dim waitStartTime As Date
waitStartTime = Now

Do
    ' 尝试获取目标工作簿，忽略未找到的错误
    On Error Resume Next
    Set targetWB = Workbooks("EXPORT.XLSX")
    On Error GoTo 0
    
    ' 找到目标工作簿则退出循环
    If Not targetWB Is Nothing Then Exit Do
    
    ' 未找到则等待1秒后重试
    Application.Wait Now + TimeValue("00:00:01")
    
    ' 超时判断：最多等待30秒，避免无限挂起
    If Now > waitStartTime + TimeValue("00:00:30") Then
        MsgBox "EXPORT.XLSX加载超时，请检查SAP导出状态", vbExclamation
        Exit Sub
    End If
Loop

' 执行后续操作：重命名工作表、排序等
With targetWB
    .Sheets(1).Name = "库存报表" ' 替换为你需要的工作表名称
    ' 这里添加排序代码示例，根据实际需求调整：
    '.Sheets(1).Range("A1:Z1000").Sort Key1:=.Sheets(1).Range("A2"), Order1:=xlAscending, Header:=xlYes
End With

额外注意事项 #

• 避免依赖活动对象：尽量直接引用工作簿/工作表对象（如上述代码中的targetWB），Microsoft 365对活动对象的管理更严格，能减少意外问题。
• 检查导出文件名称：确认SAP导出的文件确实是EXPORT.XLSX，有时会因文件已存在被自动重命名为EXPORT(1).XLSX，这种情况需调整代码中的文件名。
• 优化等待逻辑：短间隔轮询（1秒）比长等待更高效，添加超时判断能防止程序无限挂起。

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