大量excel表文件名需要改成excel文件中第一行的名字

Question

求助：现有大量的excel表文件名需要改成：现文件名＋excel文件中第一行的汉子（不包含数字及字符），如：现文件名
改成
其中文件中的第一行内容为：

一个个的修改，数量实在太多，大致在成千上万个，麻烦高手指导，感激不尽！不好意思，就只有20财富币了。但是帮我解决了，另外还有回报！期待高人指点！

Answer 1

提供一下大概的思路：
第一步是用VBA获取全部的excel文件中第一行的汉字并过滤掉数字及字符；

第二部是写个批处理，要用到DOS命令。
具体是：
1、在"命令提示符"（开始-程序-附件-命令提示符）中切换到excel文件所在目录，假设excel文件在D盘的excelfile文件夹，就输入cd d:\excelfile回车；
2、用dir命令获取所有excel文件并将清单输出到文件，输入命令dir/b *.xls >tmp.txt
3、用记事本打开d:\excelfile中的tmp.txt，里面的内容就是所有的原文件名，全选-复制
4、打开excel，粘贴到A列，把第一步获取的汉字粘贴到B列，在C列输入公式="ren "&A1&" "&A1&B1，往下拉到最后一个文件名，复制C列
5、新打开记事本，将C列的内容粘贴，另存为，文件名改为"批量改名.bat"（这里含双引号），保存到d:\excelfile下，双击运行它，完成后所有excle文件的名字就改好了。

追答

最难的在第一步，我目前也不会，另请高明吧。

Answer 2

我看可以试试另存为方式。。。

Answer 3

用VBA编程

追问

大神能否亲自指导，千万不能是这么简单的教导我啊，我是小白，真心的不懂！

追答

我试着写一个看看。