移动工作表时出现不一致的错误

Question

下面的代码是一个在工作簿中移动工作表的函数。它从包含列出工作簿中的工作表的列表框的用户窗体中调用。输入是一个整数，它给出了移动工作表的方向。工作簿中的左/右在用户窗体列表框中向上/向下，并且用户窗体具有向上和向下按钮，它们调用具有不同输入的函数（+1 用于向右移动，-2 用于向左移动）。

如果对象“_Worksheet”失败，此函数有时会给出错误方法“移动”，但不一致。大多数情况下，第二次移动工作表时会出现错误，因此我无法多次移动工作表。一旦发生错误，我将无法再次移动工作表。但是，我可以选择不同的工作表并在相同的事情发生之前将其移动一次。

如果我在错误处理中实现一个消息框，行为就会改变。出错时关闭消息框后，我可以在出错后再次移动同一张表。因此，使用消息框，我可以根据需要多次移动工作表，但它只会在每隔一个按钮按下时移动。我猜消息框会中断代码执行，由于某种原因，这会使函数再次工作，即使是给出错误的同一张表。我尝试用延迟或自动关闭信息框替换消息框，但这并没有给出相同的结果。

更复杂的是，有时当我打开用户窗体应用程序时，移动按钮可以正常工作而没有任何错误。我认为在打开应用程序之前工作表已经打开时会发生这种情况。

这一切似乎都非常不一致，超出了我的知识范围。非常感谢任何帮助或建议。

Function FlyttMåling(Retning As Integer) As Boolean

    Application.EnableEvents = False
    Application.ScreenUpdating = False

    'code to reference the correct workbook based on outside parameters
    Dim wb As Workbook, ws As Worksheet
    FlyttMåling = True
    If Hovedvindu.LuftlydKnapp.Value = True Then
        Set wb = ÅpneBok(1)
    ElseIf Hovedvindu.TrinnlydKnapp.Value = True Then
        Set wb = ÅpneBok(2)
    End If

    'sets variable to the index of sheet to be moved, chosen from list in userform
    Dim nummer As Integer
    Set ws = wb.Sheets(1)
    If Hovedvindu.MålingerFrame.Liste.ListIndex < 0 Then
        Exit Function
    Else
        Set ws = wb.Sheets(Hovedvindu.MålingerFrame.Liste.Value)
    End If
    nummer = ws.Index

    'exit function if trying to move first sheet to the left or last sheet to the right
    If (Retning = 1 And nummer = wb.Sheets.count) Or (Retning = -2 And nummer = 2) Then
        Exit Function
    End If

    'code that moves worksheet
    ws.Activate
    On Error GoTo errHandler:
errResume:
    ws.Move after:=wb.Sheets(nummer + Retning)   'THIS LINE CAUSES ERROR
    On Error GoTo 0
    Call oppdaterListe

    'reselect the moved worksheet in the userform list
    For i = 0 To Hovedvindu.MålingerFrame.Liste.ListCount - 1
        If ws.Name = Hovedvindu.MålingerFrame.Liste.List(i) Then
            Hovedvindu.MålingerFrame.Liste.Selected(i) = True
            Exit For
        End If
    Next i

    Application.EnableEvents = True
    Application.ScreenUpdating = True
    Exit Function

    'error handling just sets the return to false to notify failure to move sheet
errHandler:
    FlyttMåling = False

End Function

Answer 1

找到了解决此问题的方法。将 wb.move 更改为 wb.copy，然后删除旧工作表并将副本重命名为原始工作表的名称，使此代码按预期工作。