等Excel工作簿关闭后自动加密压缩备份2019年10月9日.ahk
;
; 等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的更多相关文章
- 等Excel工作簿关闭后自动加密压缩备份
;; 等Excel工作簿关闭后自动加密压缩备份.ahk;; 腾讯QQ号 595076941; 作者:boai; 写作日期:2019年5月15日; 版本号:第1版; 手机号(中国移动) 138##### ...
- excel-合并多个Excel文件--VBA合并当前目录下所有Excel工作簿中的所有工作表
在网上找EXCEL多文件合并的方法,思路: 一.Linux 或者window+cmder,直接用命令行cat合并EXCEL文件,但是,需要安装辅助东西才能直接处理(也许也不可以,但是,可以用文件格式转 ...
- 如何使用 Visual C# 2005 或 Visual C# .NET 向 Excel 工作簿传输数据
本文分步介绍了多种从 Microsoft Visual C# 2005 或 Microsoft Visual C# .NET 程序向 Microsoft Excel 2002 传输数据的方法.本文还提 ...
- 使用SPIRE.XLS来创建Excel 工作簿
使用SPIRE.XLS来创建Excel 工作簿 概要 最近在研究 .NET 控件,使用这些控件在程序中可以快速低成本实现功能. 在这一篇中我们使用的控件是Spire.XL ...
- 合并多个excel工作簿
合并多个Excel工作簿,会出现电话号码以科学计数法显示,如果想要以字符串方式处理,要按如下完整代码 public static void mergeWorkBook() throws Excepti ...
- 把Excel工作簿的每个工作表提取出来保存为新工作簿
平台:MS office 2010 任务:有个excel工作簿,其中有上百个工作表,要求把每一个工作表全部保存为新工作簿,如果一个一个复制出来太傻了,可以用excel自带的VB解决. 方法:打开工作簿 ...
- [办公自动化]excel工作簿内的表无法删除,单击右键无删除键
今天同事问,我自己的工作簿,没有设置保护,但是就是无法删除其中的工作表. 后来发现,她的excel工作簿打开的文件名后面显示[共享]. 原因找到了. 取消共享就可以了.
- 怎么拆分一个Excel工作簿中的多个工作表?
打开需要编辑的Excel文档.如图所示,工作簿下方有很多工作表.现在需要将这些工作表单独拆分开成一个个工作簿. 右键任意一个工作表标签,在弹出的下拉列表中选择查看代码.即弹出代码窗口.如下图所示. ...
- 键盘和鼠标闲置超时时关闭显示器并锁定电脑桌面的AutoHotkey脚本 2019年11月24日写
/* 键盘和鼠标闲置超时时关闭显示器并锁定电脑桌面的AutoHotkey脚本 2019年11月24日写 在电脑桌面锁定时移动鼠标就会显示登录界面,此时即使超过电源设置的时间电脑也不会关闭显示器使得屏幕 ...
随机推荐
- XML从入门到深入(超详细)
一:什么是XML XML (eXtensible Markup Language)指可扩展标记语言,标准通用标记语言的子集,简称XML.是一种用于标记电子文件使其具有结构性的标记语言. XML可以标记 ...
- hive学习笔记之三:内部表和外部表
欢迎访问我的GitHub https://github.com/zq2599/blog_demos 内容:所有原创文章分类汇总及配套源码,涉及Java.Docker.Kubernetes.DevOPS ...
- 什么是DDoS黑洞路由?
1. 什么是DDoS黑洞路由? DDoS黑洞路由/过滤(有时称为黑孔)是缓解DDoS攻击的一种对策,网络流量将被路由到"黑洞"中并且丢失.如果在没有特定限制条件下实施黑洞过滤,合法 ...
- C++ 11 关键字
1.auto 我现在用auto,基本是在变量定义时根据初始化表达式自动推断该变量的类型. 另外与关键字 decltype 连用,在声明或定义函数时作为函数返回值的占位符. auto不能用来声明函数的返 ...
- 105、如何使用u盘制做linux镜像
105.1. 105.2. 105.3. 105.4.
- JVM到底是什么呢
在我们运行和调试Java程序的时候,经常会提到一个JVM的概念.那JVM到底是什么呢? JVM是Java程序的运行环境,它同时也是一个操作系统的一个应用程序.一个进程,因此他也有他自己的运行生命周期, ...
- 浅析WebSocket 原理
浅析WebSocket 原理 长恨此身非我有,何时忘却营营. 简介:先简单了解下WebSocket 原理,日后的使用中再进一步深入研究~ 一.什么是WebSocket WebSocket 是HTML5 ...
- 探究国内CRM系统哪家公司做的最好?
国内CRM系统哪家公司做的最好?相信这是很多人关心的话题.但这是一个伪命题,因为无论什么产品,都没有一个确定的结论来证明哪个产品最好.我们只能根据它的功能.适用性.价格等来判断哪个最合适.所以小编只能 ...
- AcWing 100. 增减序列
给定一个长度为n的数列每次可以选择一个区间 [l,r],使下标在这个区间内的数都加一或者都减一. 求至少需要多少次操作才能使数列中的所有数都一样,并求出在保证最少次数的前提下,最终得到的数列可能有多少 ...
- SpringCloud:扩展zuul配置路由访问
继续上次整合SpringCloud的demo进行扩展zuul:https://www.cnblogs.com/nhdlb/p/12555968.html 这里我把zuul划分出一个模块单独启动 创建 ...