Excel VBA导出工作表前删按钮，功能生效却报1004错误求助

问题根源 #

你遇到的1004错误来自两个核心问题：

1. 遍历集合时直接删除元素：用For Each遍历Shapes集合时删除元素，会破坏集合的迭代状态，导致后续的SaveAs操作触发异常（哪怕文件实际已经保存成功）。
2. 按钮类型判断错误：msoShapeStyleMixed是标识形状样式是否混合的常量，不是按钮控件的类型——这个判断逻辑既没选中所有按钮，还可能误删其他形状，残留的控件会引发保存时的对象状态异常。

修正方案 #

1. 反向遍历Shapes集合

改用从后往前的索引遍历，避免删除元素对集合遍历过程的干扰。

2. 精准识别按钮控件

针对Excel两种常见按钮类型分别判断：

• 表单控件按钮：Type = msoFormControl 且 FormControlType = xlButtonControl
• ActiveX按钮：Type = msoOLEControlObject 且 OLEFormat.ProgID = "Forms.CommandButton.1"

修正后的完整代码 #

Sub Export_IssuesLog()
    Dim answer As Integer
    Dim PathName As String
    Dim i As Integer
    Dim shp As Shape
    
    answer = MsgBox("Do you want to export the issues log?" _
    & Chr(13) & Chr(13) & Chr(10) & "Note: This macro automatically overwites versions with the same Revision Number. Please ensure the revision number is updated correctly.", vbQuestion + vbYesNo)

    If answer = vbYes Then
        PathName = ThisWorkbook.Path & "\" & Range("Proj_no").Value & "_" & Range("Client_short").Value & "_" & Range("Facility_short").Value & "_IssuesLog_REV-" & Range("B4").Value & ".xlsx"
        
        ActiveSheet.Copy
        
        ' 反向遍历Shapes集合，规避删除元素导致的遍历异常
        For i = ActiveSheet.Shapes.Count To 1 Step -1
            Set shp = ActiveSheet.Shapes(i)
            ' 判断是否为表单控件按钮
            If shp.Type = msoFormControl Then
                If shp.FormControlType = xlButtonControl Then
                    shp.Delete
                End If
            ' 判断是否为ActiveX按钮
            ElseIf shp.Type = msoOLEControlObject Then
                If shp.OLEFormat.ProgID = "Forms.CommandButton.1" Then
                    shp.Delete
                End If
            End If
        Next i
        
        ActiveWorkbook.SaveAs Filename:=PathName
        ActiveWorkbook.Close SaveChanges:=False
    Else
        Exit Sub
    End If
End Sub

额外提示 #

• 如果工作表仅使用表单控件按钮，可以简化判断逻辑，只保留表单控件的判断部分；
• 反向遍历是处理集合内删除元素的通用技巧，能彻底避免For Each遍历中集合结构变化引发的错误；
• 精准识别控件类型既不会误删其他形状，也能确保所有按钮被清理，消除保存时的对象状态异常。

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