Excel 添加应用程序后出现错误440.displayalerts=false

当我添加Application.DisplayAlerts=false和Application.DisplayAlerts=True时，工作表（“Sheet2”）的任意一侧都会出现删除。我得到440错误

不确定问题是什么，但在没有application.displayalerts的情况下运行没有问题

我已经在谷歌上搜索了好几年了，我尝试了一些在这里发布的其他问题上提到的东西。我觉得我可能需要另一行代码或其他东西

不工作的代码：

Private子命令按钮1\u单击（）
暗数与长数相同
与当前行一样长
Dim j尽可能长
将sht变暗为工作表
设置sht=板材（“板材3”）
currentRow=2
非空时执行（单元格（当前行，1））
numberCopies=短单元格（当前行，1）
对于j=2到数字副本
第行（当前行）。复制
sht.Rows（currentRow）.插入移位：=xlDown
currentRow=currentRow+1
下一个j
currentRow=currentRow+1
环
Application.CutCopyMode=False
第（1）列。删除
将路径设置为字符串
Dim Filename1作为字符串
Dim Filename2作为字符串
路径=此工作簿。路径&“\”
Filename1=范围（“B1”）
Filename2=范围（“D1”）
Application.DisplayAlerts=False
工作表（“工作表2”）。删除
工作表（“工作表1”）。删除
Application.DisplayAlerts=True
ActiveWorkbook.SaveAs文件名：=Path&Filename1&“-”&Filename2&“.csv”，文件格式：=xlCSV
MsgBox“此用法文件已保存在与用法上载创建者相同的文件夹中，另存为”&ActiveWorkbook.Name&“此工作簿现在将关闭，您可以在CPQ上上载用法文件。谢谢。”
ActiveWorkbook.Close为False
端接头

---

我只是不想弹出“您确定要删除工作表”警报。

在评论中解决了问题所在，问题是您无法在要删除的工作表上使用ActiveX按钮。您可以使用以下方法抑制错误和警报：

    On Error Resume Next
    Application.DisplayAlerts = False
    Sheets("Sheet2").Delete
    Sheets("Sheet1").Delete
    Application.DisplayAlerts = True
    On Error GoTo 0

---

在评论中找出了问题所在，问题是您无法在要删除的工作表上使用ActiveX按钮。您可以使用以下方法抑制错误和警报：

    On Error Resume Next
    Application.DisplayAlerts = False
    Sheets("Sheet2").Delete
    Sheets("Sheet1").Delete
    Application.DisplayAlerts = True
    On Error GoTo 0

---

首先，私人潜水艇的p是独立的。除此之外，错误在哪一行？它在没有显示警报的情况下工作吗？哦，请确保您正在使用的工作簿中存在Sheet2和Sheet1。粘贴代码后，p就是我。出现问题的代码：Application.DisplayAlerts=False Sheets（“Sheet2”）。Delete Sheets（“Sheet1”）。Delete Application.DisplayAlerts=True它在没有应用程序的情况下工作。DisplayAlerts我尝试了这些行，但没有为我提供错误。是否确实存在名为“Sheet1”和“Sheet2”的工作表。如果单击“调试”，错误会突出显示哪一行？我确定代码运行时工作表的名称，但在添加应用程序时停止工作。displayalert它正在删除宏按钮所在的页面可能是问题所在？我刚刚删除了工作表（“sheet1”）。删除后就没有问题了，但我需要它删除工作表1，而不需要弹出向上的窗口。首先，p in private Sub在其自己的行上。除此之外，错误在哪一行？它在没有显示警报的情况下工作吗？哦，请确保您正在使用的工作簿中存在Sheet2和Sheet1。粘贴代码后，p就是我。出现问题的代码：Application.DisplayAlerts=False Sheets（“Sheet2”）。Delete Sheets（“Sheet1”）。Delete Application.DisplayAlerts=True它在没有应用程序的情况下工作。DisplayAlerts我尝试了这些行，但没有为我提供错误。是否确实存在名为“Sheet1”和“Sheet2”的工作表。如果单击“调试”，错误会突出显示哪一行？我确定代码运行时工作表的名称，但在添加应用程序时停止工作。displayalert它正在删除宏按钮所在的页面可能是问题所在？我刚刚删除了工作表（“sheet1”）。删除没有问题，但我需要它来删除工作表1，而不需要弹出“你绝对英雄”。谢谢你会的，但是我可以问一下，如果我有你的话，我可以问一下工作表是否得到了保护。在删除工作表之前，需要什么代码来取消对工作表的保护，以便将其删除？我在哪里将答案标记为已接受？找到了大箭头我不确定，我认为

。取消保护
是一件事。但我自己从来没用过，你真是个英雄。谢谢你会的，但是我可以问一下，如果我有你的话，我可以问一下工作表是否得到了保护。在删除工作表之前，需要什么代码来取消对工作表的保护，以便将其删除？我在哪里将答案标记为已接受？找到了大箭头我不确定，我认为
。取消保护
是一件事。但我自己从来没用过。