替换文件名字用bat怎么只替换了部分，问题出现在哪？

再回首-沉默

这个问题出现在哪呢，找了大半天，操作一样来着

ykcbf1100

参与一下。。。

1. Sub ykcbf()   '//2024.9.12
   
2.     Application.ScreenUpdating = False
   
3.     Set fso = CreateObject("Scripting.FileSystemObject")
   
4.     p = ThisWorkbook.Path & ""
   
5.     For Each f In fso.GetFolder(p).Files
   
6.         If LCase(f.Name) Like "表*.*" Then
   
7.             fn = fso.GetBaseName(f)
   
8.             f.Name = "a" & Val(Mid(fn, 3)) & "." & fso.GetExtensionName(f)
   
9.         End If
   
10.     Next
    
11.     Application.ScreenUpdating = True
    
12.     MsgBox "OK！"
    
13. End Sub
    
14. 
    

复制代码

wxg0007

要不换台电脑试试？

wp231957

你没发现吗，你不是替换了四个文件，而是增加了四个文件
虽然我也没想明白咋回事，但是你双击运行bat却是错误的，应该开终端窗口，在你想要的目录里面以命令行方式运行

ww87725244

没有问题啊，已经改完了

ynzsvt

我猜测你的有的文件正在使用中，无法改名。所以只改了部分文件名。

ykcbf1100

用bat操作多麻烦，文件多了就无法应对，而且手工输文件名也容易错。

用VBA处理会简单得多，可以批量处理，也不用管是什么文件名。