• 英伦绅士新打开方式 试驾捷豹XFL 3.0SC 2019-07-20
  • 发展改革委就创新和完善宏观调控等答问 2019-07-13
  • 深圳2018年将开行3趟援疆旅游扶贫专列 2019-07-01
  • 房地产就有国家和集体之土地不计价到计价,这笔是经济收入还是财产收入? 2019-07-01
  • Map Out Your Life in Chongqing 2019-06-28
  • 世界杯黄历:日本换帅对战黑马“小哥” 2019-06-27
  • 小区麻将馆 何时不扰民 2019-06-26
  • 纷纷“结缘”世界杯 家电企业图什么 2019-06-13
  • 推动吉台两地合作发展再上新台阶 2019-05-29
  • 中青报:父亲的“卖牛钱”被打赏 该如何管住孩子的手 2019-05-29
  • 任建明解读中纪委五次全会亮点 展望新时期反腐制度建设 2019-05-28
  • 全国首套房贷款利率连续17个月上升 2019-05-25
  • 昌赣高铁假期加紧施工 2019-05-25
  • 美国再挑贸易战,中方强力回击,全球市场跌声一片 2019-05-24
  • 【学习时刻学思践悟十九大①】人民大学马亮:在新时代增强党的改革创新本领 2019-05-24
  • 当前位置 > CPDA数据分析师 > “数”业专攻 > excel重要文件每天自动备份一份,再也不怕文件丢失损坏了

    福彩3d走势图: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编程。


    (来源:中国统计网)

  • 英伦绅士新打开方式 试驾捷豹XFL 3.0SC 2019-07-20
  • 发展改革委就创新和完善宏观调控等答问 2019-07-13
  • 深圳2018年将开行3趟援疆旅游扶贫专列 2019-07-01
  • 房地产就有国家和集体之土地不计价到计价,这笔是经济收入还是财产收入? 2019-07-01
  • Map Out Your Life in Chongqing 2019-06-28
  • 世界杯黄历:日本换帅对战黑马“小哥” 2019-06-27
  • 小区麻将馆 何时不扰民 2019-06-26
  • 纷纷“结缘”世界杯 家电企业图什么 2019-06-13
  • 推动吉台两地合作发展再上新台阶 2019-05-29
  • 中青报:父亲的“卖牛钱”被打赏 该如何管住孩子的手 2019-05-29
  • 任建明解读中纪委五次全会亮点 展望新时期反腐制度建设 2019-05-28
  • 全国首套房贷款利率连续17个月上升 2019-05-25
  • 昌赣高铁假期加紧施工 2019-05-25
  • 美国再挑贸易战,中方强力回击,全球市场跌声一片 2019-05-24
  • 【学习时刻学思践悟十九大①】人民大学马亮:在新时代增强党的改革创新本领 2019-05-24
  • 七乐彩推荐 体育彩票中心在哪里 南粤36选7胆拖中奖规则 甘肃十一选五开奖l结果 湖北十一选五任5几率大 巴登娱乐城代理加盟 即时比分爱彩网 六合开奖 江苏11选5开奖号码查询 广西快三玩法规则 华东15选5跨度走势图 见过最牛的两码中特 香港赛马会资料香港赛马会官 浙江体彩官方网唯一 河北20选5复式中奖