求个批量更改文件名的代码

shufeabb · 发表于 2024-11-15 21:44

在指定路径的文件名下批量把文件名前面统一加QA001-
求宏代码。单位不让用power automate.

shiruiqiang · 发表于 2024-11-15 21:57

遍历文件夹下的所有文件，f.name="QA001-" & f.name

excel玉米 · 发表于 2024-11-15 22:12

张小生 · 发表于 2024-11-15 22:14

Sub RenameFilesInFolder()
Dim FSO As Object
Dim Folder As Object
Dim File As Object
Dim strFolderPath As String
Dim newFileName As String
'设置文件夹路径，这里需要替换成你实际的文件夹路径
strFolderPath = "F:\ICC\Workbook"
'创建文件系统对象
Set FSO = CreateObject("Scripting.FileSystemObject")
'获取指定的文件夹对象
Set Folder = FSO.GetFolder(strFolderPath)
'遍历文件夹中的每个文件
For Each File In Folder.Files
'构造新的文件名，这里是添加前缀"new_"，可按需修改规则
newFileName = "QA001-" & File.Name
File.Name = newFileName
Next File
'释放对象
Set File = Nothing
Set Folder = Nothing
Set FSO = Nothing
End Sub

复制代码

张小生 · 发表于 2024-11-15 22:25

import os
# 定义文件夹路径，替换成实际路径
# folder_path = "/your_folder_path"
# 遍历文件夹下的文件
for file_name in os.listdir(folder_path):
old_file_path = os.path.join(folder_path, file_name)
new_file_name = "QA001-" + file_name
new_file_path = os.path.join(folder_path, new_file_name)
os.rename(old_file_path, new_file_path)

复制代码

xlj310 · 发表于 2024-11-16 08:26

本帖最后由 xlj310 于 2024-11-16 08:28 编辑

电脑上装了Everything的可直接搞定，不需要自己编程。
电脑上没有Everything的就安装一个，这玩意搜索电脑上的文件贼快贼方便~
批量选中文件后，点右键重命名或者直接按F2 （重命名快捷键，电脑上资源管理器里也通用）

liulang0808 · 发表于 2024-11-16 08:45

https://club.excelhome.net/threa ... tml?_dsign=73cffde5
这个链接可以参考下

182197315 · 发表于 2024-11-16 09:22

使用name ... as ...

szqhb · 发表于 2024-11-16 17:18

本文档给你参考一下。你按照按钮提示摸索一下，应该符合你要求。

a批量修改文件名（可对本及子文件夹按同类后缀重命名）.zip (19.16 KB, 下载次数: 13)

shufeabb · 发表于 2024-11-20 23:26

搞定这个重命名了。但如果条件变了，比如文件夹下的文件名的前三个字符替换成特定字符，MACRO又该怎么更改？比如把MOQ批量改成final

		自动登录	找回密码
密码			免费注册

[求助] 求个批量更改文件名的代码