vba - 使用 VBA 删除工作表会使 Excel 崩溃

Question

我试图在用户单击 Excel 中的图像(按钮)时删除工作表。然而，这会使 excel 崩溃并重新启动，忘记任何未保存的进度。

这是我的潜艇:

Sub DeletePlan()

Application.Calculation = xlCalculationManual
Application.DisplayAlerts = False
Dim SheetNamesToCopy As String

SheetNamesToCopy = ActiveSheet.Name



' Check what addon sheets exists for the media, then add existing ones to string
If CheckSheet("periodeplan", True) = True Then
    ThisWorkbook.SheetS(SheetNamesToCopy & " - periodeplan").Delete
End If

If CheckSheet("ukesplan", True) = True Then
    ThisWorkbook.SheetS(SheetNamesToCopy & " - ukesplan").Delete
End If

If CheckSheet("Input", True) = True Then
    ThisWorkbook.SheetS(SheetNamesToCopy & " - Input").Delete
End If

SheetS("Totalplan").Select
ThisWorkbook.SheetS(SheetNamesToCopy).Delete

Application.DisplayAlerts = True
Application.Calculation = xlCalculationAutomatic

End Sub

应用程序大部分时间都会崩溃。但并不总是......任何想法可能是错误的？(我已经测试并确认删除功能导致崩溃，但它并不总是同一张纸)。

编辑:此功能不会删除工作簿中的最后一张纸。还有20张。我还使用 Application.Calculation = xlCalculationAutomatic，因为有很多公式，我不希望 excel 在删除所有关联的工作表之前计算更改。

感谢任何提示或回答:)

Answer 1

当启动宏的按钮位于要删除的工作表之一上时，会发生错误。

所以答案是:不要创建删除其所在工作表的按钮(或链接到宏的图像)。

如果有人可以添加此错误的原因，请添加此答案；)