• 坚守一条红线 维护生态安全(在习近平新时代中国特色社会主义思想指引下——新时代新作为新篇章) 2019-11-12
  • 《辉煌中国》第五集《共享小康》 2019-11-12
  • 这事咋办No.2丨申请西安保障性住房必看 花生让你有房住 2019-11-11
  • 预热世界杯 玩法各异!3张竞彩红单了解一下 2019-10-18
  • 崇拜不劳而获是腐败的根源之一,正气不足是腐败的第二个根源,沉迷于初级趣味易滋生腐败,提高素质力争不想腐,以医者之心防治腐败。 2019-10-09
  • 人民日报评论员随笔:让文化热情涵养更多经典 2019-10-09
  • 国产手机跟进“刘海屏”,凸显苹果在智能手机市场的影响力 2019-10-05
  • 世界杯倒计时:球迷街头狂欢为自己的国家打Call 2019-10-02
  • 紫光阁中共中央国家机关工作委员会 2019-09-24
  • 洪崖洞客流激增 渝中开通2条应急通道12辆公交车驰援 2019-09-24
  • 中央环保督察“回头看”10省区问责630人 2019-09-19
  • 天津举办改善营商环境专题讲座 2019-09-19
  • 日本核能行业誓言日本将在今年内重新启用核电 2019-09-03
  • 中国保险行业协会发布汽车后市场配件合车标准 2019-09-02
  • 晋中市通报五起违反中央八项规定精神问题 2019-08-30
  • 当前位置 > CPDA数据分析师 > “数”业专攻 > excel重要文件每天自动备份一份,再也不怕文件丢失损坏了

    辽宁快乐12前三直选跨度走势图:excel重要文件每天自动备份一份,再也不怕文件丢失损坏了

    浙江快乐彩和值走势图 www.pn-vs.com 来源:数据分析师 CPDA | 时间:2015-08-26 | 作者:admin

    导语

    有同学提问,excel误删除了怎么办?excel损坏了怎么办?...其实如果excel重要的文件如果每天能备份一份,再也不用担心文件丢失和损坏了。今天就教大家如何实现这个功能。

    实现这样“高大尚”的功能现有的excel功能无法完成,还得VBA编程的方法。当然,作为不懂VBA代码的你,只需要按下面步骤复制粘贴即可。
    第1 步:打开要备份的excel文件,在工作表标签上右键单击,点击“查看代码”

    1

    第2步 在打开一个visualbasic窗口,双击工程窗口中的thisworkbook,把下面的代码粘贴到右侧的窗口中。
    代码:

    Private Sub Workbook_BeforeClose(Cancel As Boolean)
    On Error Resume Next
    Dim mypath As String, fname As String
    fname = Format(Date, "yymmdd") & ThisWorkbook.Name
    mypath = ThisWorkbook.Path & "/备份/"
    ThisWorkbook.SaveCopyAs mypath & fname
    End Sub

    2

    第3步:在Visual basic窗口中点击保存命令,会弹出另存启用宏的提示,这时点击“否”按钮。

    3

    在弹出的保存窗口中,选取保存类型为“Excel 启用宏的工作簿”

    4第4步:在当前文件夹中,新建一个名为“备份”的文件夹。

    5

    设置完成!

    当关闭当前文件后,在备份文件夹中会自动产生一个 日期 + 文件名的excel备份文件。

    6当第2天再次关闭文件时,同样会再产生一个当天的备份文件

    7注意:
    以后使用的文件应是xlsm格式的文件。
    当打开文件时,如果提示“启用内容”就点击启用。

    8

    excel由于支持强大的vba开发语言,使得只要我们能想到的功能,都可以用它来实现。如果你想成为Excel高手,建议学习VBA编程。


    (来源:中国统计网)

  • 坚守一条红线 维护生态安全(在习近平新时代中国特色社会主义思想指引下——新时代新作为新篇章) 2019-11-12
  • 《辉煌中国》第五集《共享小康》 2019-11-12
  • 这事咋办No.2丨申请西安保障性住房必看 花生让你有房住 2019-11-11
  • 预热世界杯 玩法各异!3张竞彩红单了解一下 2019-10-18
  • 崇拜不劳而获是腐败的根源之一,正气不足是腐败的第二个根源,沉迷于初级趣味易滋生腐败,提高素质力争不想腐,以医者之心防治腐败。 2019-10-09
  • 人民日报评论员随笔:让文化热情涵养更多经典 2019-10-09
  • 国产手机跟进“刘海屏”,凸显苹果在智能手机市场的影响力 2019-10-05
  • 世界杯倒计时:球迷街头狂欢为自己的国家打Call 2019-10-02
  • 紫光阁中共中央国家机关工作委员会 2019-09-24
  • 洪崖洞客流激增 渝中开通2条应急通道12辆公交车驰援 2019-09-24
  • 中央环保督察“回头看”10省区问责630人 2019-09-19
  • 天津举办改善营商环境专题讲座 2019-09-19
  • 日本核能行业誓言日本将在今年内重新启用核电 2019-09-03
  • 中国保险行业协会发布汽车后市场配件合车标准 2019-09-02
  • 晋中市通报五起违反中央八项规定精神问题 2019-08-30
  • 北单9串1的奖金范围 后一6码阶梯倍投方案 pk10双面盘 辽宁35选7字谜 年极准特码诗 吉林快3号码一和值推荐 极速快乐十分公式 彩票刮刮乐中奖绝招 贵卅十一选五开奖结果 广东快乐十分历史 彩票预测网 15选5怎么中奖规则 内购大师汉化版 歡迎光臨集结号电子游艺 金沙彩票