excel - 工作簿是只读的，再试一次

Question

我有这段代码可以检查以确保工作簿未打开/未在使用中。
我将如何修改它以在 5 秒内重试并在 3 次尝试后发送 MsgBox？

 If wBook.ReadOnly = True Then
        MsgBox "Database is in use. Please try after sometimes.", vbookonly + vbCritical, "error"
        
        Exit Sub
    End If

Answer 1

您可以使用辅助方法，根据您传递的参数，您可以灵活地等待多少时间:

Public Sub TryWriteMode(ByVal book As Workbook _
                      , ByVal numberOfTries As Long _
                      , ByVal secondsWaitAfterFailedTry As Long)
    Const maxSecondsWait As Long = 60
    If book Is Nothing Then
        Err.Raise 91, "TryWriteMode", "Book not set"
    End If
    If numberOfTries < 1 Then Exit Sub
    '
    'Cap seconds
    If secondsWaitAfterFailedTry < 0 Then
        secondsWaitAfterFailedTry = 0
    ElseIf secondsWaitAfterFailedTry > maxSecondsWait Then
        secondsWaitAfterFailedTry = maxSecondsWait
    End If
    '
    Dim i As Long
    Const secondsPerDay As Long = 24& * 60& * 60&
    '
    For i = 1 To numberOfTries
        On Error Resume Next
        book.ChangeFileAccess xlReadWrite
        On Error GoTo 0
        If Not book.ReadOnly Then Exit Sub
        Application.Wait Now() + secondsWaitAfterFailedTry / secondsPerDay
    Next i
End Sub

在您的示例中，您可以这样调用:

If wBook.ReadOnly = True Then
    TryWriteMode book:=wBook _
               , numberOfTries:=3 _
               , secondsWaitAfterFailedTry:=5
End If
If wBook.ReadOnly Then
    MsgBox "Database is in use. Please try again later.", vbOKOnly + vbInformation, "Read-only book"
    Exit Sub
End If