VBA代码求助：实现共享Excel文件占用检测及等待功能

核心思路 #

通过尝试以可写模式打开目标文件检测是否被其他用户占用，若打开失败则间隔固定时间后重试，直到文件可用再执行写入操作。同时优化原代码中依赖Select/Activate的不良写法，提升稳定性。

修改后的完整代码 #

Sub RTS()
    Dim sourceRange As Range
    Dim targetWB As Workbook
    Dim targetWS As Worksheet
    Dim lastRow As Long
    Dim filePath As String
    Dim retryInterval As Integer ' 重试间隔（秒）
    
    ' 初始化参数
    filePath = "RTS Report.xlsx" ' 共享驱动器文件请填写完整网络路径，如\\Server\Share\RTS Report.xlsx
    retryInterval = 2 ' 每次重试等待2秒
    
    ' 关闭不必要的提示和屏幕刷新
    Application.DisplayAlerts = False
    Application.ScreenUpdating = False
    
    ' 定义要复制的源区域（避免使用Select/Activate）
    Set sourceRange = ThisWorkbook.ActiveSheet.Range("A7:Q7")
    
    ' 循环尝试打开目标文件，直到成功
    Do
        On Error Resume Next ' 捕获打开错误
        Set targetWB = Workbooks.Open(Filename:=filePath, ReadOnly:=False)
        On Error GoTo 0 ' 恢复默认错误处理
        
        ' 如果打开失败，等待后重试
        If targetWB Is Nothing Then
            Application.Wait Now + TimeValue("00:00:" & retryInterval)
        Else
            Exit Do ' 打开成功，退出循环
        End If
    Loop
    
    ' 写入数据到目标文件
    Set targetWS = targetWB.Sheets("data")
    lastRow = targetWS.Range("A" & targetWS.Rows.Count).End(xlUp).Row
    
    ' 粘贴数据（保留原格式需求）
    sourceRange.Copy
    targetWS.Range("A" & lastRow + 1).PasteSpecial Paste:=xlPasteFormulasAndNumberFormats, _
        Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    
    ' 自动调整列宽
    targetWS.Cells.EntireColumn.AutoFit
    
    ' 保存并关闭目标文件
    targetWB.Save
    targetWB.Close SaveChanges:=False ' 已保存，无需重复保存
    
    ' 恢复Excel默认设置
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
    
    ' 回到原工作簿
    ThisWorkbook.Activate
End Sub

关键部分说明 #

• 文件占用检测与重试：通过Workbooks.Open尝试打开文件，若失败则targetWB为Nothing，此时等待指定间隔后重试，直到文件可用。
• 移除Select/Activate：原代码依赖Select和Activate易因工作表切换出错，改用直接引用对象的方式更稳定。
• 修正原代码错误：原代码中actveworkbook为拼写错误，修改后的代码直接用对象引用，无需依赖ActiveWorkbook。
• 资源清理：操作完成后关闭目标文件，恢复Excel提示和屏幕刷新，避免影响用户后续操作。

额外建议 #

1. 使用完整网络路径：共享驱动器文件必须填写完整路径（如\\服务器名\共享文件夹\RTS Report.xlsx），避免相对路径导致找不到文件。
2. 调整重试间隔：根据实际场景修改retryInterval，过短会占用过多资源，过长会增加用户等待时间。
3. 可选超时机制：若需避免无限等待，可添加重试次数限制，比如重试10次后提示用户稍后再试。

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