Excel精英培训网

 找回密码
 注册

QQ登录

只需一步,快速开始

工作中常用的Excel函数公式,全印在一张超大鼠标垫上
查看: 308|回复: 3

[已解决] 请教代码如何添加一个删除宏代码和按钮图标的语句?

[复制链接]
发表于 2019-11-30 11:38 | 显示全部楼层 |阅读模式
本帖最后由 ruhong18 于 2019-12-2 11:16 编辑

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

excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2019-11-30 19:53 | 显示全部楼层
简单点的方法是把数据复制出来另存为其他文件。
要删除按钮,你先录制一个删除按钮的宏,按钮肯定是能用代码删除的。但宏代码本身不好说,我没试过,你也可以录制宏试试看能不能删除代码。
回复

使用道具 举报

发表于 2019-12-2 10:49 | 显示全部楼层
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

评分

参与人数 1学分 +2 收起 理由
ruhong18 + 2 学习

查看全部评分

回复

使用道具 举报

 楼主| 发表于 2019-12-2 11:15 | 显示全部楼层
爱疯 发表于 2019-12-2 10:49
Sub saveit()
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False

感谢超级版主,代码测试完全正确!
回复

使用道具 举报

*滑块验证:
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2020-8-4 19:43 , Processed in 0.046800 second(s), 4 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表