为心如止水定制
需求如下：在正在编辑的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
声明：本站所有文章，如无特殊说明或标注，均为本站原创发布。任何个人或组织，在未征得本站同意时，禁止复制、盗用、采集、发布本站内容到任何网站、书籍等各类媒体平台。如若本站内容侵犯了原著者的合法权益，可联系我们进行处理。
