;
; 等Excel工作簿关闭后自动加密压缩备份.ahk
;
; 腾讯QQ号 595076941
; 作者:boai
; 写作日期:2019年5月15日
; 版本号:第1版
; 手机号(中国移动) 138#####488
;
; 用法:
;
; 1、在Windows 7 专业版中安装WinRAR 5.7 简体中文版和WPS Office 2016 专业增强版。
; 2、在此脚本所在的文件夹新建一个与此脚本同名的Excel工作簿文件(*.xlsx)。
; 3、运行此脚本。
; 4、 经常编辑的文件,建议发送此脚本文件的快捷方式到电脑桌面。
; 5、为防止丢失源代码,建议把此AutoHotkey脚本源代码复制粘贴到以下两个文件中
; C:\Program Files\Kingsoft\WPS Office\10.8.2.6666\office6\mui\default\templates\newfile.wps
; C:\Program Files\Kingsoft\WPS Office\10.8.2.6666\office6\mui\default\templates\newfile.et
; 6、修改上面这两个文件的作者属性值 (快捷键<ALT> FII)。
;
#SingleInstance,force ;当此脚本已经运行时自动替换旧实例再次运行。
#Persistent ;让脚本持久运行(即直到用户关闭或遇到 ExitApp)。
#NoEnv ;不检查空变量是否为环境变量(建议所有新脚本使用)。
#WinActivateForce ;用强制的方法激活窗口。阻止任务栏按钮的闪烁.
;~ #NoTrayIcon ;不显示托盘图标。
;~ #Warn
SetWorkingDir,%A_ScriptDir% ;改变脚本的当前工作目录。
DetectHiddenWindows,On ;设置脚本可以“看见”隐藏的窗口。
SetTitleMatchMode,2 ;窗口标题匹配模式改成某个位置必须包含WinTitle。
SendMode Input
;
global FileName
global Now
Now=%A_Hour%%A_Min%%A_Sec%
StringLeft,FileName,A_ScriptName,StrLen(A_ScriptName)-4
IfNotExist,C:\Progra~1\WinRAR\WinRAR.EXE
{
MsgBox,Not Find WinRAR.exe
ExitApp
}
IfNotExist,%A_ScriptDir%\%FileName%.xlsx
{
MsgBox,Not Find %FileName%.xlsx
ExitApp
}
BackupFileFuction("D")
IfExist,C:\Progra~1\WinRAR\WinRAR.EXE
{
IfExist,%A_ScriptDir%\%FileName%.xlsx
{
RunWait,%A_ScriptDir%\%FileName%.xlsx
}
}
;~ WinWaitActive,%FileName%
;~ WinWaitClose,%FileName%
BackupFileFuction("E")
BackupFileFuction("F")
BackupFileFuction("G")
BackupFileFuction("H")
BackupFileFuction("I")
BackupFileFuction("J")
BackupFileFuction("K")
BackupFileFuction("L")
BackupFileFuction("M")
BackupFileFuction("N")
BackupFileFuction("O")
BackupFileFuction("P")
BackupFileFuction("Q")
BackupFileFuction("R")
BackupFileFuction("S")
BackupFileFuction("T")
BackupFileFuction("U")
BackupFileFuction("V")
BackupFileFuction("W")
BackupFileFuction("X")
BackupFileFuction("Y")
BackupFileFuction("Z")
ExitApp
return
BackupFileFuction(DiskVolume)
{
FileCreateDir,%DiskVolume%:\06-全自动备份\%FileName%的备份
FormatTime,FileDay,A_Now,d
IfExist,C:\Progra~1\WinRAR\WinRAR.EXE
{
IfExist,%A_ScriptDir%\%FileName%.xlsx
{
Run,"C:\Progra~1\WinRAR\WinRAR.EXE" A -cfg- -IBCK -INUL "%DiskVolume%:\06-全自动备份\%FileName%的备份\%FileName%的备份_%FileDay%_%Now%.rar" "%A_ScriptDir%\%FileName%.xlsx"
}
}
FileCopy,%A_ScriptFullPath%,%DiskVolume%:\06-全自动备份\%FileName%的备份\%A_ScriptName%,1
DeleteFileDay:=FileDay+1
IfEqual,FileDay,31
DeleteFileDay:=1
IfExist,%A_ScriptDir%\%FileName%.xlsx
{
FileDelete,%DiskVolume%:\06-全自动备份\%FileName%的备份\%FileName%的备份_%DeleteFileDay%_*.rar
}
}

; DriveGet,盘符清单,List
; loop,Parse,盘符清单

; --- 脚本到此行结束 --- 第1页 【共1页】

等Excel工作簿关闭后自动加密压缩备份的更多相关文章

  1. 等Excel工作簿关闭后自动加密压缩备份2019年10月9日.ahk

    ;; 等Excel工作簿关闭后自动加密压缩备份2019年10月9日.ahk;; 腾讯QQ号 595076941; 作者:徐晓亮(weiyunwps618); 写作日期:2019年5月15日; 版本号: ...

  2. excel-合并多个Excel文件--VBA合并当前目录下所有Excel工作簿中的所有工作表

    在网上找EXCEL多文件合并的方法,思路: 一.Linux 或者window+cmder,直接用命令行cat合并EXCEL文件,但是,需要安装辅助东西才能直接处理(也许也不可以,但是,可以用文件格式转 ...

  3. 如何使用 Visual C# 2005 或 Visual C# .NET 向 Excel 工作簿传输数据

    本文分步介绍了多种从 Microsoft Visual C# 2005 或 Microsoft Visual C# .NET 程序向 Microsoft Excel 2002 传输数据的方法.本文还提 ...

  4. 使用SPIRE.XLS来创建Excel 工作簿

               使用SPIRE.XLS来创建Excel 工作簿     概要 最近在研究 .NET 控件,使用这些控件在程序中可以快速低成本实现功能. 在这一篇中我们使用的控件是Spire.XL ...

  5. 合并多个excel工作簿

    合并多个Excel工作簿,会出现电话号码以科学计数法显示,如果想要以字符串方式处理,要按如下完整代码 public static void mergeWorkBook() throws Excepti ...

  6. 把Excel工作簿的每个工作表提取出来保存为新工作簿

    平台:MS office 2010 任务:有个excel工作簿,其中有上百个工作表,要求把每一个工作表全部保存为新工作簿,如果一个一个复制出来太傻了,可以用excel自带的VB解决. 方法:打开工作簿 ...

  7. [办公自动化]excel工作簿内的表无法删除,单击右键无删除键

    今天同事问,我自己的工作簿,没有设置保护,但是就是无法删除其中的工作表. 后来发现,她的excel工作簿打开的文件名后面显示[共享]. 原因找到了. 取消共享就可以了.

  8. 怎么拆分一个Excel工作簿中的多个工作表?

    打开需要编辑的Excel文档.如图所示,工作簿下方有很多工作表.现在需要将这些工作表单独拆分开成一个个工作簿.   右键任意一个工作表标签,在弹出的下拉列表中选择查看代码.即弹出代码窗口.如下图所示. ...

  9. 如何解决excel工作簿保护密码

    自己的excel文档设置了“保护工作簿”密码,但是密码又忘记了,怎么办? 如果你会编写代码,那么这个问题非常好解决.Excel内置功能不能解决的事儿,自己编写一段代码或许就可以搞定了. 第一步,大家已 ...

随机推荐

  1. 【科普】MySQL中DDL操作背后的并发原理

    一. 简介 DQL:指数据库中的查询(select)操作. DML:指数据库中的插入(insert).更新(update).删除(delete)等行数据变更操作. DDL:指数据库中加列(add co ...

  2. 扩展ADO.net实现对象化CRUD(.net core/framework)

    扩展ADO.net实现对象化CRUD(.net core/framework) 安装nuget包:CRL using CRL; 实现数据操作 获取数据访问连接IDbConnection dbConne ...

  3. mapboxgl绘制3D线

    最近遇到个需求,使用mapboxgl绘制行政区划图层,要求把行政区划拔高做出立体效果,以便突出显示. 拿到这个需求后,感觉很简单呀,只需要用fill-extrusion方式绘制就可以啦,实现出来是这个 ...

  4. 重新点亮linux 命令树————帮助命令[一]

    前言 重新整理一下linux的命令. 正文 这里首先介绍帮助命令. 帮助命令常用的有三个: man help info 那么就来看下这三个. man 第一个man,man不是男人的意思,而是manua ...

  5. Unity接入ShareSDK实现QQ登录和QQ分享、微信分享

    原文链接:Unity接入ShareSDK实现QQ登录和QQ分享.微信分享 由于微信登录需要企业审核,我这里就不说明了,有需要的可以去官网看一下文档,和QQ登录比多了一个打包的步骤. 第一步:到官网申请 ...

  6. 企业如何通过CRM系统使销售周期缩短

    企业为什么要缩短销售周期?因为这意味着可以节约更多开支,从而达到企业利润最大化.但是有不少企业尤其是B2B行业,销售周期都在三个月以上.通过调查发现,很多企业在客户信息和销售管道上缺乏管理和策略.Zo ...

  7. JavaScript中for...in循环使用问题

    问题 使用for...in去遍历一个数组,同时将值添加到另外一个数组时,新的数组中每次都多出来一个function类型的元素. 原因及解决方案 for...in用来循环本身没有问题,但是经常被误用来遍 ...

  8. XML:使用cxf调用WebService接口时报错:编码GBK的不可映射字符(设置UTF-8字符集)

    调用代码如下 JaxWsDynamicClientFactory dcf = JaxWsDynamicClientFactory.newInstance(); Client client = dcf. ...

  9. Springboot:单元测试日志打印@Slf4j 注解的使用方法

    当自己写日志的时候,肯定需要: private final Logger logger = LoggerFactory.getLogger(LoggerTest.class); 每次写新的类,就需要重 ...

  10. springCloud--admin监控使用

    Admin监控应用 Spring Boot提供的监控接口,例如:/health./info等等,实际上除了之前提到的信息,还有其他信息业需要监控:当前处于活跃状态的会话数量.当前应用的并发数.延迟以及 ...