另存删除按钮报错

zdh8083

Private Sub 另存为发送表格()
    Dim VBC As Object, SHP As Shape, S$, SH As Worksheet
    S = ThisWorkbook.Path & "\" & Replace(ThisWorkbook.Name, ".xlsm", "") & "-发送.xlsm"
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    ThisWorkbook.SaveCopyAs S
    With Workbooks.Open(S)
        For Each SH In .Sheets
            For Each SHP In SH.Shapes
                SHP.Delete
            Next
        Next
        For Each VBC In ActiveWorkbook.VBProject.VBComponents
            With Application.VBE.ActiveVBProject.VBComponents
                .Remove .Item(VBC.Name)                                                                                                              '删除模块、类模块、窗体
            End With
        Next
         .Close True
    End With
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
    MsgBox "备份完毕"
End Sub



以上是zhaogang1960版主之前写的代码，这为啥报错了呢

zdh8083

顶起，是需要对表格的啥地方进行设置么 ？

zdh8083

大家都回家过年了么 ？那就祝大家新年快乐

半百

这个有没有勾选？瞎猜的

taller

另存为xlsx关闭文件后就可以移除代码，不需要去删除