• 海淀:社区中的快乐暑假 2019-04-13
  • 大运河文化带非遗大展 紫檀制德胜门大放异彩 2019-04-08
  • 通俄门调查:美联邦调查局官员称愿赴国会作证 2019-04-03
  • 河北馆陶:端午节火了“艾旅游” 2019-04-03
  • 马天宇《纳西索斯》首发 变身自恋狂魔马天宇 2019-03-26
  • 四川:高宇化工230万吨磷石膏渣违法堆存——高宇化工被挂牌督查 2019-03-26
  • 刘珂矣首张禅意中国风专辑《半壶纱》悦然发声 刘珂矣 2019-03-15
  • 人民日报评论员:一以贯之坚持和发展中国特色社会主义 2019-03-06
  • 尖峰对话:新经济形势下金融创新的变革与机遇 2019-03-06
  • 一语惊坛(6月5日):担当新使命,展现新作为。 2019-03-04
  • 纪念中国福利会成立80周年大会在上海举行 2019-03-03
  • 冷少农写给儿子的家书 2019-02-27
  • 浙江大学科研团队潜心十五载 飞机装配有了国产自动化设备 2019-02-27
  • 孙中山曾想把共产党开除出国民党 2019-02-21
  • 紫光阁中共中央国家机关工作委员会 2019-02-20
  • 当前位置 > CPDA数据分析师 > “数”业专攻 > excel重要文件每天自动备份一份,再也不怕文件丢失损坏了

    天津快乐十分开奖走势图: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-04-13
  • 大运河文化带非遗大展 紫檀制德胜门大放异彩 2019-04-08
  • 通俄门调查:美联邦调查局官员称愿赴国会作证 2019-04-03
  • 河北馆陶:端午节火了“艾旅游” 2019-04-03
  • 马天宇《纳西索斯》首发 变身自恋狂魔马天宇 2019-03-26
  • 四川:高宇化工230万吨磷石膏渣违法堆存——高宇化工被挂牌督查 2019-03-26
  • 刘珂矣首张禅意中国风专辑《半壶纱》悦然发声 刘珂矣 2019-03-15
  • 人民日报评论员:一以贯之坚持和发展中国特色社会主义 2019-03-06
  • 尖峰对话:新经济形势下金融创新的变革与机遇 2019-03-06
  • 一语惊坛(6月5日):担当新使命,展现新作为。 2019-03-04
  • 纪念中国福利会成立80周年大会在上海举行 2019-03-03
  • 冷少农写给儿子的家书 2019-02-27
  • 浙江大学科研团队潜心十五载 飞机装配有了国产自动化设备 2019-02-27
  • 孙中山曾想把共产党开除出国民党 2019-02-21
  • 紫光阁中共中央国家机关工作委员会 2019-02-20