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中的值填充Sheet的一行，但是如果我尝试运行它多次，它会执行currCell.Value = Date然后停止执行没有错误或任何东西。如果我重新打开工作簿，它第一次尝试运行时工作正常，但是每次尝试都会失败。

任何想法可能会发生在这里？

Answer 1

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

ActiveWorkbook.Save

在End Sub。

之前

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

1 个答案: