点击InputBox取消/X按钮时退出Sub的VBA代码问题求助

问题根源 #

原代码的核心错误是InputBox判断逻辑完全混乱：

• 错误地把单元格赋值、InputBox输入、vbOK判断揉在同一个条件里，而vbOK是MsgBox的返回常量，和InputBox毫无关系
• InputBox点击取消/关闭按钮时返回空字符串，而非vbOK，原逻辑导致无论输入什么都会触发Else分支直接退出Sub

修正后的代码 #

Sub openurl()
    Dim EdgeLocation As String
    Dim MyURL As String
    Dim i As Integer
    Dim ws1 As Worksheet
    Dim lastRow As Long
    Dim inputValue As Variant
    Dim valueToCopy As String
    Dim currentWs As Worksheet ' 明确操作的工作表，避免依赖ActiveSheet
    
    ' 指定工作表对象
    Set currentWs = ThisWorkbook.ActiveSheet
    Set ws1 = ThisWorkbook.Sheets("Page1_1")
    
    ' 获取当前工作表最后一行（处理空表情况）
    On Error Resume Next
    lastRow = currentWs.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    On Error GoTo 0
    If lastRow = 0 Then Exit Sub ' 空表直接退出
    
    EdgeLocation = "C:\Program Files (x86)\Microsoft\Edge\Application\msedge.exe"
    
    ' 提前设置CN列表头，无需循环重复执行
    currentWs.Range("CN1").Value = "POD"
    
    For i = 1 To lastRow
        ' 获取CL列的值（原代码的Copy操作未使用，按需保留）
        valueToCopy = currentWs.Range("CL" & i).Value
        ' currentWs.Range("CL" & i).Copy ' 不需要可注释
        
        ' 打开Edge访问URL，处理空URL情况
        MyURL = ws1.Cells(i, 1).Value
        If MyURL <> "" Then
            ' 用引号包裹URL，避免含空格时Shell命令出错
            Shell EdgeLocation & " -url -newtab " & Chr(34) & MyURL & Chr(34), vbNormalFocus
        End If
        
        ' 获取InputBox输入值
        inputValue = InputBox("Enter Y or N for POD", "InputBox Example")
        
        ' 判断是否取消输入
        If inputValue = vbNullString Then
            MsgBox "操作已取消"
            Exit Sub
        End If
        
        ' 将输入值写入CN列对应行
        currentWs.Range("CN" & i).Value = inputValue
    Next i
End Sub

关键修正点 #

• 拆分InputBox逻辑：先把输入值存入变量，单独判断是否取消（返回vbNullString），避免逻辑嵌套混乱
• 脱离ActiveSheet依赖：声明工作表变量明确操作对象，防止切换工作表时出错
• 优化冗余操作：把CN列表头设置移到循环外，避免重复执行
• 增加边界判断：处理空表、空URL的情况，避免运行报错
• URL格式修正：用引号包裹URL，确保含空格的地址能被Shell正确识别

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