excel vba，从工作簿中删除所有名称而不循环

Question

我正在尝试使用 VBA 删除 Excel 工作簿中的所有名称不使用循环。

我当前正在使用下面的代码，但这非常慢，因为工作簿中有数千个名称。

如有任何建议，我们将不胜感激!

Sub deleteAllNames()
Dim xName As Name

For Each xName In Application.ActiveWorkbook.Names
       xName.Delete
Next
End Sub

Answer 1

如果没有一些复杂的 hacky 方式或弄乱 XML，这是不可能的，但这应该更快:

Dim i As Long
Application.Calculation = xlCalculationManual
For i = ThisWorkbook.Names.Count To 1 Step -1
    ThisWorkbook.Names(i).Delete
Next
Application.Calculation = xlCalculationAutomatic