vba - 代码在第一次后停止执行，没有错误

Question

我在 Excel 中做一个小应用程序，当用户单击用户窗体中的按钮时，我有以下代码

Private Sub SubmitNuevo_Click()
    Call FindNextEmptyRow 'after this nextEmptyCell has a Range object
    Dim currCell As Range
    Set currCell = nextEmptyCell.Cells(1, 1)
    Dim s() As String
    s = Split("macro,name,area,dept,model,range,prior,found", ",")
    currCell.Value = Date
    For i = 0 To UBound(s)
        currCell.Offset(0, dict.Item(s(i)) - 1).Value = Me.Controls(s(i) & "Nuevo").Text
    Next
End Sub

当我刚刚打开工作簿并运行它时，它工作正常，用来自 TextBoxes 的值填充工作表的一行，但是如果我尝试运行它更多次，它会执行currCell.Value = Date然后停止执行而没有错误或任何东西。如果我重新打开工作簿，它在我第一次尝试运行它时工作正常，但随后每次尝试都失败。

有什么想法可能在这里发生吗？

Answer 1

每次单击按钮后保存工作簿可解决问题。刚刚添加

ActiveWorkbook.Save

之前End Sub。