删除工作表后Excel Vba停止执行

Question

我是 VBA 新手。我写了一个代码来删除特定的工作表。执行该删除工作表宏后，excel 宏停止执行。它没有进一步执行..

这是我的代码..

Sub CopyAcross()
Dim sheetName As String
sheetName = "Master_Base"
If WorksheetExists(sheetName) Then
 DeleteSheet (sheetName)
End If
MsgBox "Debug"

Workbooks("Master_Base.csv").Sheets("Master_Base").Copy Before:=Workbooks("Copy of    test.xlsm").Worksheets("Sheet3")
End Sub 

Sub DeleteSheet(strSheetName As String)
' deletes a sheet named strSheetName in the active workbook
Application.DisplayAlerts = False
Sheets(strSheetName).Delete
Application.DisplayAlerts = True
End Sub

谁能帮忙解决这个问题，

提前致谢。

Answer 1

我遇到了同样的问题，在装有 Excel 版本 16.0.10730.20264 32 位的 Windows 7 计算机上，代码运行良好，没有问题。但是，在具有相同 Excel 安装版本的 Windows 10 计算机上，宏将在 Sheets.Delete 行之后立即停止执行。

我发现这只发生在我试图操作包含 VBA 代码的工作簿时，我在宏期间打开了该代码。

此问题是由计算机上的宏安全设置引起的。如果您在打开工作簿之前将自动化安全设置为低，您应该不会再收到错误:

使用代码:

Application.AutomationSecurity = msoAutomationSecurityLow