文件重命名

肆无大叔 · 发表于 2024-1-20 14:16

把文件夹中的所有jpg文件，按照下述原则命名
重命名格式：上海+当天日期（yyyymmdd）+图片序号，
以今天（20240120）为例：
img1  重命名：上海20240120-1
img2  重命名：上海20240120-2
img3  重命名：上海20240120-3
img4  重命名：上海20240120-4
img5  重命名：上海20240120-5

在线等待，万分感谢！

vitrel · 发表于 2024-1-20 14:42

下载后的文件只有0字节，重复下载，结果仍是如此。

kane027 · 发表于 2024-1-20 14:46

https://club.excelhome.net/thread-1681310-1-1.html
可参考这个贴子

vitrel · 发表于 2024-1-20 14:46

因为文件打不开，简单给您写一个，您参考一下。

For i = 1 To 5
Name "D:\img" & i & ".jpg" As "D:\上海" & Format(Date, "yyyymmdd") & "-" & i & ".jpg"
Next i

复制代码

ykcbf1100 · 发表于 2024-1-20 14:59

附件无法下载，请重新上传

肆无大叔 · 发表于 2024-1-20 15:16

附件重新上传

ykcbf1100 · 发表于 2024-1-20 15:40

参与一下。。。

Sub ykcbf() '//2024.1.20
Set Fso = CreateObject("scripting.filesystemobject")
p = ThisWorkbook.Path & ""
rq = Format(Date, "yyyymmdd")
st = "上海" & rq & "-"
Application.ScreenUpdating = False
For Each f In Fso.getfolder(p).Files
If UCase(f.Name) Like "*.JPG" Then
fn = Replace(Fso.GetBaseName(f), "IMG", "")
fx = Fso.GetExtensionName(f)
f.Name = st & fn & "." & fx
End If
Next f
Application.ScreenUpdating = True
MsgBox "OK！"
End Sub

复制代码

ykcbf1100 · 发表于 2024-1-20 15:41

肆无大叔发表于 2024-1-20 15:16
附件重新上传

文件改名，附件供参考。。。

gwjkkkkk · 发表于 2024-1-20 18:11

fso还是比较方便。。。

伊可赛二 · 发表于 2024-1-21 07:38

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

[求助] 文件重命名

评分

评分