如何让VBA宏等待Excel标题栏从Saving...变为Saved后再关闭文件？

保存SharePoint上的Excel文件时，标题栏会显示“Saving...”，此时文件正在同步在线更改。若此时关闭文件，会弹出“执行清理”弹窗且无法自动消失，需手动点击取消；等待几秒后标题栏变为“Saved”，此时关闭则无异常。

编写的VBA宏执行保存操作后直接关闭文件，仅等待本地缓存保存完成，未等待同步至SharePoint完成，导致出现上述弹窗。不想使用固定等待/睡眠方法，因为同步时长受网络环境和文件大小影响。已检查文档属性未找到相关状态值，设置WB.saved = True也无效。

现有代码如下：

Sub PushMaster()
Dim sWb As Workbook
Dim Wb As Workbook
Dim mFile As String

mFile = "https://company.sharepoint.com/......../exception2024.xlsx" 'This file is having 12 tabs and file size is near 85mb

Set sWb = ThisWorkbook
Set Wb = Workbooks.Open(mFile)

sWb.Sheets(1).Range("A:A").Copy
Wb.Sheets("dec").Range("S:S").PasteSpecial Paste:=xlPasteValues

sWb.Sheets(1).Range("B:B").Copy
Wb.Sheets("dec").Range("T:T").PasteSpecial Paste:=xlPasteValues

sWb.Sheets(1).Range("C:C").Copy
Wb.Sheets("dec").Range("U:U").PasteSpecial Paste:=xlPasteValues

Application.DisplayAlerts = False
Wb.Save
Wb.Close
Application.DisplayAlerts = True

MsgBox "Done"
End Sub

请问如何让VBA宏等待标题栏从“Saving...”变为“Saved”后再关闭文件，避免程序崩溃？

可以通过轮询检查Excel窗口标题栏的状态来判断SharePoint同步是否完成，替代固定等待的方法。具体思路是：

• 保存文件后，循环检查目标工作簿的窗口标题，直到标题中不再包含“Saving...”关键字
• 加入超时机制，避免无限循环（比如设置最长等待10分钟，可按需调整）

修改后的代码如下：

Sub PushMaster()
Dim sWb As Workbook
Dim Wb As Workbook
Dim mFile As String
Dim startTime As Double
Dim maxWaitTime As Double ' 最长等待时间，单位：秒

mFile = "https://company.sharepoint.com/......../exception2024.xlsx" 'This file is having 12 tabs and file size is near 85mb

Set sWb = ThisWorkbook
Set Wb = Workbooks.Open(mFile)

sWb.Sheets(1).Range("A:A").Copy
Wb.Sheets("dec").Range("S:S").PasteSpecial Paste:=xlPasteValues

sWb.Sheets(1).Range("B:B").Copy
Wb.Sheets("dec").Range("T:T").PasteSpecial Paste:=xlPasteValues

sWb.Sheets(1).Range("C:C").Copy
Wb.Sheets("dec").Range("U:U").PasteSpecial Paste:=xlPasteValues

Application.DisplayAlerts = False
Wb.Save

' 设置最长等待时间为10分钟（600秒），可根据需求调整
maxWaitTime = 600
startTime = Timer

' 轮询检查标题栏状态，直到同步完成或超时
Do While InStr(Wb.Windows(1).Caption, "Saving...") > 0
    DoEvents ' 释放系统资源，避免Excel假死
    If Timer - startTime > maxWaitTime Then
        MsgBox "同步超时，将强制关闭文件", vbExclamation
        Exit Do
    End If
Loop

Wb.Close
Application.DisplayAlerts = True

MsgBox "Done"
End Sub

说明 #

1. Wb.Windows(1).Caption 获取目标工作簿的窗口标题，通过InStr函数判断是否包含“Saving...”
2. DoEvents 用于在循环中释放CPU资源，防止Excel界面假死
3. 加入超时机制，避免因网络故障等原因导致无限循环
4. 此方法能精准等待SharePoint同步完成，无需依赖固定等待时长

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