免费脚本定制(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

 

给TA买糖
共{{data.count}}人
人已赞赏
AHKV1

ImageSearch找图命令可以把两个文件名赋值给同一个X,Y吗?

2018-6-1 9:12:30

AHKV1

GDIP时钟

2018-8-29 10:59:30

0 条回复 A文章作者 M管理员
    暂无讨论,说说你的看法吧
个人中心
购物车
优惠劵
今日签到
有新私信 私信列表
搜索