Excel VBA问题：关闭操作的工作簿时用户窗体也被一同关闭

我帮你排查了代码里的问题，核心原因有两个：一是过度依赖Select、ActiveCell这类依赖活动上下文的操作，导致工作簿焦点混乱；二是循环内部直接关闭工作簿，后续代码会引用已关闭的对象触发错误，进而导致窗体意外关闭。

下面是修正后的代码，我标注了关键修改点：

Function CreateLabel(ByVal b As Integer, ByVal c As Long, ByVal d As String)
    Application.DisplayAlerts = False
    Dim i As Long
    Dim labelCounter As Long
    Dim theLabel As Object, theLabel2 As Object
    Dim f As Workbook
    Dim ws As Worksheet ' 新增工作表对象，彻底摆脱Select操作
    Dim xLastRow As Long
    Dim h As Variant ' 根据实际数据类型调整，这里用Variant兼容多种类型
    Dim q As Long
    
    i = i + b
    For labelCounter = 1 To i
        On Error GoTo Count
        ' 创建第一个标签
        Set theLabel = UserForm3.Controls.Add("Forms.Label.1", "Cart" & labelCounter, True)
        With theLabel
            .Caption = d
            .Left = 10
            .Width = 50
            .Top = 10 * labelCounter
        End With
        ' 修复控件名称重复问题：原来两个标签用了相同名称，会触发错误
        Set theLabel2 = UserForm3.Controls.Add("Forms.Label.1", "CartNum" & labelCounter, True)
        With theLabel2
            .Caption = c
            .Left = 70
            .Width = 50
            .Top = 10 * labelCounter
        End With
Count:
    Next labelCounter
    
    UserForm3.TextBox1.Value = UserForm3.TextBox1.Value + c
    h = Sheet1.TextBox1.Value
    
    ' 打开外部工作簿并绑定到工作表对象
    Set f = Workbooks.Open("C:\Users\39800\Desktop\Hexa_DB.xlsx")
    Set ws = f.Worksheets("sheet2") ' 直接引用工作表，无需切换活动状态
    
    ' 直接获取最后一行，完全不用Select和ActiveCell
    xLastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    
    ' 循环操作时通过ws对象直接引用单元格，不依赖活动上下文
    For q = 2 To xLastRow
        If ws.Cells(q, 1).Value = h Then
            ws.Cells(q, 2) = Format(UserForm3.TextBox1.Value, "Currency")
            Exit For ' 找到匹配项后退出循环，避免重复处理
        End If
    Next q
    
    ' 统一在循环结束后保存关闭工作簿，避免中途关闭导致后续代码报错
    f.Save
    f.Close SaveChanges:=False ' 已经手动Save，这里无需重复保存
    Application.DisplayAlerts = True ' 恢复Excel默认提示
    
    MsgBox "You have Successfully added this item to cart"
Exit Function
End Function

关键修改说明： #

• 移除所有Select/ActiveCell操作：通过明确的工作表对象ws引用单元格，彻底避免工作簿焦点切换带来的混乱，这是解决窗体意外关闭的核心
• 修复控件名称冲突：原来两个标签控件用了相同的名称，会触发运行时错误，现在改成了不同的命名规则
• 调整工作簿关闭时机：把保存和关闭操作移到循环外部，确保所有修改完成后再执行，避免中途关闭工作簿导致后续代码引用无效对象
• 恢复系统提示：操作完成后恢复Application.DisplayAlerts的默认状态，不影响后续Excel操作
• 明确变量声明：补充所有变量的声明，符合VBA最佳实践，减少隐式类型错误

这样修改后，关闭外部工作簿时就不会再影响用户窗体的运行了，所有操作都基于明确的对象引用，完全脱离对活动工作簿的依赖。

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