Question

按键精灵编程问题

为提高工作效率，想用按键精灵编一程序，求助！具体要实现：启动按键精灵，弹出一对话框，要求用户输入一串数值，这串数值赋予变量A，然后我手动选中一个文件，该类文件名规则为***1_????????******，***2_????????******，按键精灵自动帮我更改文件名（保留文件名中_下划线前的数字和下划线后6位），把文件名更名为Q变量A??????_1，Q变量A??????_2。然后我再启动按键精灵，输入另一串数值，更改其他文件名。如此循环。
等了好久都没人回答，我自己来开个头:
a=InputBox("请输入：") //这时用户输入的数值就赋予变量a了
接下来的思路是按键精灵等待我点选我需要改的文件，然后读取该文件的文件名，找到文件名中的“_”下划线，分别左边1位和右边6位赋予变量b和变量c，接下来就更改文件名"Q"ac"_"b就行了。不过我只有思路，不知道怎么写代码。

Answer 1

step1：归类文件

先把要改变文件名的文件放在对应的一个文件夹，同时在对应文件夹下方新建Excel文档

setp2：定义名称

打开excel文档，然后在公式选项卡下方选择定义名称功能，然后定义名称栏写上=FILES("E:\修改文件名文件夹\*.docx")

step3：编辑公式

在A1单元格中录入【=INDEX(名称,ROW(A1))】引用定义的名称。然后往下填充复制。

step4：编辑结果文件名称

在B列中，编辑出我们对应的结果要改的文件名称。

step5：用公式去替换

在C1单元格输入公式：="ren "&A1&" "&B1，然后往下填充。

step6：建立text文档

新建一个记事本，然后把C列的内容复制到TXT记事本里面。然后保存

step7：更改记事本后缀名

将已经保存的txt文档，更改后缀名为bat文档，更改后效果如下：

step8：运行bat文档

双击文档进行运行，然后就发现文件名称就被修改了。

这就是今天和大家分享的利用Excel批量修改文件名的具体操作方法，希望能帮助到大家!如果有任何疑问，欢迎留言评论即可。

Answer 2

这类需求不建议用太高级的语言来做窗体实现，你可以用脚本语言，效率高而且成本低。具体看你的叙述，用bat脚本就能很好的实现了，只是批量修改文件名称。 查下bat文件重命名的命令。

追问

BAT也行啊，我也省得安装一个按键精灵了。
那老大你就写一个BAT给我啊。。谢了啊。

Answer 3

a = InputBox("请输入：")
//此处有2秒时间给你点击全选文件名
delay 2000
call 复制
delay 100
y101 = Plugin.Sys.GetCLB()
y102=Split(y101, "_")(0)
y103=Split(y101, "_")(1)
y104 = right(y102,1)
y105=left(y103,6)
y106="Q" & a & y105 & "_" & y104
Call Plugin.Sys.SetCLB(y106)
call 粘贴
sub 复制
zc10="560529173129"
Call Plugin.Sys.SetCLB(zc10)
KeyDownS "Ctrl", 1
KeyPresSs "C", 1
KeyupS "Ctrl", 1
delay 30
KeyupS "Ctrl", 1
if y177<>999
delay 70
end if
zc11=Plugin.Sys.GetCLB()
for 2
if zc11=zc10 then
delay 300
KeyDown "Ctrl", 1
KeyPress "C", 1
Keyup "Ctrl", 1
delay 300
Keyup "Ctrl", 1
end if
next
end sub
sub 粘贴
KeyDownS "Ctrl", 1
delay 50
KeyPresSs "V", 1
delay 50
KeyUpS "Ctrl", 1
delay 50
KeyUpS "Ctrl", 1
end sub
delay 100

追问

你好，我测试了一下，在按键精灵里调试的时候可用！但是运行的时候第一步，不会弹出对话框让我输入变量a，是哪里出问题了呢？

追答

可能在你的任务栏没显示出来，到最下面点开任务栏，看有没有，a = InputBox("请输入：")这个是你给出来的，你都不知道怎么用吗？我也是拿你的学来用。

Answer 4

不是所有懂按键精灵的人都懂得神仙道猎命怎样操作，所以，你这样问，就只有懂这个游戏，又懂按键精灵编程的人才能回答，如果操作太复杂，建议你还是先自己学按键精灵编程。