等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日写 在电脑桌面锁定时移动鼠标就会显示登录界面,此时即使超过电源设置的时间电脑也不会关闭显示器使得屏幕 ...
随机推荐
- [Abp vNext 源码分析] - 20. 电子邮件与短信支持
一.简介 ABP vNext 使用 Volo.Abp.Sms 包和 Volo.Abp.Emailing 包将短信和电子邮件作为基础设施进行了抽象,开发人员仅需要在使用的时候注入 ISmsSender ...
- 【NLP学习其三】在学习什么是嵌入之前,你应该了解什么是词语表征
在了解什么是嵌入(embeddings)之前,我们需要先搞清楚一个词语在NLP中是如何被表示的 注:本次不涉及任何具体算法,只是单纯对概念的理解 词汇表征 One-Hot 词汇的表示方法有很多,最有名 ...
- Redis的flushall/flushdb误操作
Redis的flushall/flushdb命令可以做数据清除,对于Redis的开发和运维人员有一定帮助,然而一旦误操作,它的破坏性也是很明显的.怎么才能快速恢复数据,让损失达到最小呢? 假设进行fl ...
- 103、kickstart自动化安装操作系统
103.1.前言: 作为中小公司的运维,经常会遇到一些机械式的重复工作,例如:有时公司同时上线几十甚至上百台服务器,而且需要我们在短时间内完成系统安装. 常规的办法有: 光盘安装系统===>一个 ...
- XML:使用cxf调用WebService接口时报错:编码GBK的不可映射字符(设置UTF-8字符集)
调用代码如下 JaxWsDynamicClientFactory dcf = JaxWsDynamicClientFactory.newInstance(); Client client = dcf. ...
- android实现计时器(转)
新建布局文件activity_main.xml <?xml version="1.0" encoding="utf-8"?> <Linea ...
- makedown语法小记
1.标题,支持六级 # 这是一级标题 ## 这是二级标题 ### 这是三级标题 2.斜体 *这是斜体* 3.加粗 **这是加粗** 4.斜体加粗 ***这是斜体加粗*** 5.删除线 ~~这是删除线~ ...
- 修改vcenter的Administrator@vsphere.local密码
vsphere 忘记vcenter的Administrator@vsphere.local密码的解决办法 1.cd c:\Program Files\VMware\Infrastructure\VM ...
- 「Ynoi2015」我回来了
「Ynoi2015」我回来了 这东西已经不是 Ynoi 了,因为太水被嫌弃了. 如何提升自己的数据结构能力?从Ynoi做起 题目链接 其实这个题很小清新的辣,而且不卡常. 由于边权为 \(1\),所以 ...
- nodejs安装+vue安装
一.nodejs安装 电脑win7的,nodejs V12.16.2以前的版本支持win7 nodejs下载地址: http://mirrors.nju.edu.cn/nodejs/v12.15.0/ ...