如何用VBA解决，万分感谢

mymotoe6

问题在附件里，求助各位老师解决，万分感谢！

cjc209

Sub 修改文件名()
    路径 = ThisWorkbook.Path
    For Each 全路径文件名 In CreateObject("Scripting.FileSystemObject").GetFolder(路径).Files
        If 全路径文件名 Like "*工程別半成品*" Then
            Name 全路径文件名 As 路径 & "\" & "工程別半成品.xls"
        End If
    Next
End Sub

mymotoe6

感谢感谢，不过我还是不大明白，能帮我说下吗

smhf_6

for    next :  是在这个工作簿所在的文件夹内的所有文件做了一个循环
if    end if :   是对每一个文件名进行了判断，凡是文件名中包含 "工程別半成品"，进行处理
name  as  :   变更文件名

mymotoe6

路经和全路径文件名是什么？

mymotoe6

感谢各位老师，请求帮助！

ykcbf1100

mymotoe6 发表于 2023-3-29 12:13
感谢各位老师，请求帮助！

2楼的老师不是帮你写了代码了吗？问题还没有解决？

ykcbf1100

mymotoe6 发表于 2023-3-19 11:40
路经和全路径文件名是什么？

路径和全路径文件名在代码中是变量，分别代表你文件的路径和文件名。

mymotoe6

谢谢，文件名每天都是变化的，怎么解决？