请教代码如何添加一个删除宏代码和按钮图标的语句？

ruhong18

Sub saveit()
Application.ScreenUpdating = False
    Sheets(1).Copy
    ActiveWorkbook.SaveAs Filename:="C:\Users\Administrator\Desktop\" & Date & "汇总.xls", FileFormat:= _
        xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
        , CreateBackup:=False
    ActiveWorkbook.Close
End Sub

hfwufanhf2006

简单点的方法是把数据复制出来另存为其他文件。
要删除按钮，你先录制一个删除按钮的宏，按钮肯定是能用代码删除的。但宏代码本身不好说，我没试过，你也可以录制宏试试看能不能删除代码。

爱疯

Sub saveit()
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Sheets(1).Copy
    ActiveSheet.DrawingObjects.Delete    '会删除 表单控件 ActiveX控件
    Call delCode(ActiveWorkbook)
    ActiveWorkbook.SaveAs Filename:="C:\Users\Administrator\Desktop\" & Format(Date, "yyyymmdd汇总")
    ActiveWorkbook.Close
End Sub


'删除模块
Sub delCode(wb)
    Dim c
    For Each c In wb.VBProject.VBComponents
        If c.Type = 100 Then
            c.CodeModule.DeleteLines 1, c.CodeModule.CountOfLines
        Else
            wb.VBProject.VBComponents.Remove c
        End If
    Next
End Sub

ruhong18

爱疯 发表于 2019-12-2 10:49
Sub saveit()
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False

感谢超级版主，代码测试完全正确！