VBA删除工作簿名称时触发Error 1004错误求助

运行你提供的删除工作簿定义名称的VBA代码时触发Error 1004，主要原因有两个：一是Excel内置的系统名称（比如打印区域、自动生成的表格名称）无法直接删除；二是直接遍历ActiveWorkbook.Names集合时，删除元素会导致集合动态变化，引发索引异常。

以下是两种可行的解决方法：

方法一：跳过内置名称+提前存储名称集合 #

Sub DeleteNames()
    Dim xName As Name
    Dim namesArr() As Name
    ReDim namesArr(1 To ActiveWorkbook.Names.Count)
    Dim i As Integer
    
    ' 先把所有名称存入数组，避免遍历过程中集合变化出错
    For i = 1 To ActiveWorkbook.Names.Count
        Set namesArr(i) = ActiveWorkbook.Names(i)
    Next i
    
    For Each xName In namesArr
        ' 跳过Excel内置的系统名称（前缀为_xlnm.）和隐藏名称
        If Not xName.Name Like "_xlnm.*" And xName.Visible = True Then
            ' 捕获单个名称删除失败的异常，不中断整个流程
            On Error Resume Next
            xName.Delete
            On Error GoTo 0
        End If
    Next
End Sub

方法二：从后往前遍历+错误处理 #

Sub DeleteNamesSafe()
    Dim i As Integer
    ' 从后往前遍历，避免删除元素后索引混乱
    For i = ActiveWorkbook.Names.Count To 1 Step -1
        With ActiveWorkbook.Names(i)
            If Not .Name Like "_xlnm.*" And .Visible = True Then
                On Error Resume Next
                .Delete
                On Error GoTo 0
            End If
        End With
    Next i
End Sub

注意事项 #

• 运行代码前建议备份工作簿，防止误删需要的自定义名称
• Excel内置名称是系统自动生成的（如打印区域_xlnm.Print_Area），无需删除，跳过即可
• 如果仍有个别名称无法删除，可打开「名称管理器」手动检查是否存在语法异常的名称，确认后再针对性处理

内容的提问来源于stack exchange，提问作者edwylin