免费脚本定制（1）快捷键复制当前编辑excel文档为模板文档

为心如止水定制

需求如下：在正在编辑的Excel中按下热键，将该文件复制到D盘根目录下，替换一个叫“模板.xlxs”的文件，原来的那个删除到回收站

代码如下

/*
作者：河许人
时间：2018年8月27日
脚本说明：
在正在编辑的Excel中按下热键
将该文件复制到D盘根目录下，替换一个叫“模板.xlxs”的文件，原来的那个删除到回收站
*/
!a::
    oExcel :=   ComObjActive("Excel.Application")
	dir.= oExcel.workbooks(1).FullName
	FileCopy, %dir% , D:\模板.xlsx , 1
	if(ErrorLevel=0)
	{
		MsgBox,转移成功
	}
	else
	{
		MsgBox,转移失败
	}
return