VBA中点击Cancel时MsgBox重复弹出问题求助

问题描述 #

编写的VBA代码用于检查文件名称是否以"Ap10"开头，处理用户操作时功能基本正常，但点击Cancel按钮后，消息框会重复弹出。原代码如下：

Sub CheckBronbestand()
If Not Left(Dir(frmUpdate.txtOud), 5) = "Ap10" Then
    result = MsgBox("Message line 1." & vbCrLf & vbCrLf & "Message line 2", vbOKCancel + vbQuestion, "Onjuist bestand")
    If result = vbOK Then
        frmUpdate.lblBron.Caption = Left(Dir(frmUpdate.txtOud), InStr(Dir(frmUpdate.txtOud), ".") - 1)
        Exit Sub
    ElseIf result = vbCancel Then
        frmUpdate.txtOud.Text = ""
        Exit Sub
    End If
Else
    frmUpdate.lblBron.Caption = Left(Dir(frmUpdate.txtOud), InStr(Dir(frmUpdate.txtOud), ".") - 1)
End If

End Sub

问题根源 #

1. Dir()函数重复调用的异常行为：Dir()函数不带参数重复调用时，会返回下一个匹配的文件（而非原文件）。代码中多次调用Dir(frmUpdate.txtOud)，导致后续Dir()返回空值或错误文件名，触发Not Left(...) = "Ap10"条件再次成立，消息框重复弹出。
2. 未处理边界情况：如果文件名中没有.，InStr(...) -1会得到0，调用Left()函数会直接报错。

修复后的代码 #

Sub CheckBronbestand()
    Dim fileName As String
    fileName = Dir(frmUpdate.txtOud) ' 仅调用一次Dir，保存结果到变量
    
    If fileName = "" Then Exit Sub ' 处理文件不存在的场景
    
    ' 检查文件名前缀
    If Not Left(fileName, 5) = "Ap10" Then
        Dim result As VbMsgBoxResult
        result = MsgBox("Message line 1." & vbCrLf & vbCrLf & "Message line 2", vbOKCancel + vbQuestion, "Onjuist bestand")
        
        If result = vbOK Then
            ' 提取不含后缀的文件名，兼容无点号的情况
            Dim nameWithoutExt As String
            nameWithoutExt = IIf(InStr(fileName, ".") > 0, Left(fileName, InStr(fileName, ".") - 1), fileName)
            frmUpdate.lblBron.Caption = nameWithoutExt
        ElseIf result = vbCancel Then
            frmUpdate.txtOud.Text = ""
        End If
        Exit Sub ' 无论用户选择OK或Cancel，直接退出过程
    Else
        ' 提取不含后缀的文件名，兼容无点号的情况
        Dim nameWithoutExt As String
        nameWithoutExt = IIf(InStr(fileName, ".") > 0, Left(fileName, InStr(fileName, ".") - 1), fileName)
        frmUpdate.lblBron.Caption = nameWithoutExt
    End If
End Sub

关键修改点 #

• 将Dir()的结果存储到fileName变量中，避免重复调用导致的异常。
• 增加文件不存在的判断，提前退出过程。
• 用IIf()处理文件名不含.的边界情况，防止运行时错误。
• 统一提取文件名前缀的逻辑，减少重复代码。

内容的提问来源于stack exchange，提问作者R. Prinsen