Question

excel vba 问题？

请问，要把一个文件夹下所有excel文件的文件名，后面加上几位数字，如666666 且文件名称没有规律

Answer 1

VBA写这样的代码是可行的，只是一般这样的改名有更简单的方法，除非是很擅长VBA，或者为了练习VBA。下面给出VBA的例子代码：
SUB 宏1()
DIM ARR(1 TO 1000),CNT,I,P,F
'第一步，扫描文件夹下的文件清单到数组里面
P="D:\一个文件夹\" '必须以\结尾
F=DIR(P & "*.XLS?")
WHILE F<>""
CNT=CNT+1

ARR(CNT)=F

F=DIR

WEND
'第二步，对数组里面的文件开始改名
FOR I=1 TO CNT
F=P & ARR(I)

NAME F, F & "666.XLSX"'这就是改名语句，你可能需要进一步的优化

NEXT I
END SUB

追问

怎样更简便呢

追答

更简便的方法不用VBA，但是需要使用BAT或者命令，方法是使用DIR把文件清单存入表格，例如下面的命令：

DIR/B D:\文件夹\*.XLS > D:\清单.TXT

最后用记事本把【D:\清单.TXT】粘贴到EXCEL里面（A列），如下图：

然后在B列使用公式：

="REN "&A1&" "&SUBSTITUTE(A1,".xls","666.xls")

下拉公式后如下图：

最后把B列的命令粘贴到命令提示符里面即可，过程如下图：

执行之前的文件：

执行命令（粘贴B列）：

执行之后的文件：

这个方法好像简便一点，但是需要有一点点命令提示符使用基础，就是改变文件夹（CD）、查看文件清单（DIR）、改名（REN）

追问

好谢谢，我回去试试

Answer 2

用下面处理最快

Excel怎样批量改文件名