;
; 等Excel工作簿关闭后自动加密压缩备份2019年10月9日.ahk
;
; 腾讯QQ号 595076941
; 作者:徐晓亮(weiyunwps618)
; 写作日期: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("C")
BackupFileFuction("D")
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")
MsgBox,64,备份表格已成功,备份表格已成功,9
ExitApp
return
BackupFileFuction(DiskVolume)
{
FileCreateDir,%DiskVolume%:\自动备份\%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%:\自动备份\%FileName%的备份\%FileName%的备份_%FileDay%_%Now%.rar" "%A_ScriptDir%\%FileName%.xlsx"
}
}
FileCopy,%A_ScriptFullPath%,%DiskVolume%:\自动备份\%FileName%的备份\%A_ScriptName%,1
DeleteFileDay:=FileDay+1
IfEqual,FileDay,31
DeleteFileDay:=1
IfExist,%A_ScriptDir%\%FileName%.xlsx
{
FileDelete,%DiskVolume%:\自动备份\%FileName%的备份\%FileName%的备份_%DeleteFileDay%_*.rar
}
}

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

; --- 脚本到此行结束 --- 打印日期:2019年10月9日 第X页 【共Y页】

等Excel工作簿关闭后自动加密压缩备份2019年10月9日.ahk的更多相关文章

  1. 等Excel工作簿关闭后自动加密压缩备份

    ;; 等Excel工作簿关闭后自动加密压缩备份.ahk;; 腾讯QQ号 595076941; 作者:boai; 写作日期:2019年5月15日; 版本号:第1版; 手机号(中国移动) 138##### ...

  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. 键盘和鼠标闲置超时时关闭显示器并锁定电脑桌面的AutoHotkey脚本 2019年11月24日写

    /* 键盘和鼠标闲置超时时关闭显示器并锁定电脑桌面的AutoHotkey脚本 2019年11月24日写 在电脑桌面锁定时移动鼠标就会显示登录界面,此时即使超过电源设置的时间电脑也不会关闭显示器使得屏幕 ...

随机推荐

  1. XML从入门到深入(超详细)

    一:什么是XML XML (eXtensible Markup Language)指可扩展标记语言,标准通用标记语言的子集,简称XML.是一种用于标记电子文件使其具有结构性的标记语言. XML可以标记 ...

  2. hive学习笔记之三:内部表和外部表

    欢迎访问我的GitHub https://github.com/zq2599/blog_demos 内容:所有原创文章分类汇总及配套源码,涉及Java.Docker.Kubernetes.DevOPS ...

  3. 什么是DDoS黑洞路由?

    1. 什么是DDoS黑洞路由? DDoS黑洞路由/过滤(有时称为黑孔)是缓解DDoS攻击的一种对策,网络流量将被路由到"黑洞"中并且丢失.如果在没有特定限制条件下实施黑洞过滤,合法 ...

  4. C++ 11 关键字

    1.auto 我现在用auto,基本是在变量定义时根据初始化表达式自动推断该变量的类型. 另外与关键字 decltype 连用,在声明或定义函数时作为函数返回值的占位符. auto不能用来声明函数的返 ...

  5. 105、如何使用u盘制做linux镜像

    105.1. 105.2. 105.3. 105.4.

  6. JVM到底是什么呢

    在我们运行和调试Java程序的时候,经常会提到一个JVM的概念.那JVM到底是什么呢? JVM是Java程序的运行环境,它同时也是一个操作系统的一个应用程序.一个进程,因此他也有他自己的运行生命周期, ...

  7. 浅析WebSocket 原理

    浅析WebSocket 原理 长恨此身非我有,何时忘却营营. 简介:先简单了解下WebSocket 原理,日后的使用中再进一步深入研究~ 一.什么是WebSocket WebSocket 是HTML5 ...

  8. 探究国内CRM系统哪家公司做的最好?

    国内CRM系统哪家公司做的最好?相信这是很多人关心的话题.但这是一个伪命题,因为无论什么产品,都没有一个确定的结论来证明哪个产品最好.我们只能根据它的功能.适用性.价格等来判断哪个最合适.所以小编只能 ...

  9. AcWing 100. 增减序列

    给定一个长度为n的数列每次可以选择一个区间 [l,r],使下标在这个区间内的数都加一或者都减一. 求至少需要多少次操作才能使数列中的所有数都一样,并求出在保证最少次数的前提下,最终得到的数列可能有多少 ...

  10. SpringCloud:扩展zuul配置路由访问

    继续上次整合SpringCloud的demo进行扩展zuul:https://www.cnblogs.com/nhdlb/p/12555968.html  这里我把zuul划分出一个模块单独启动 创建 ...