比较复杂的照片重命名 | 工作中的实际案例

sparkguo · 发表于 2022-8-23 15:01

本帖最后由 sparkguo 于 2022-8-23 15:03 编辑

建筑行业，证书与持证管理报名过程中，要求提报的材料重命名，手动操作很麻烦。

在这里求助各位老师帮忙
辛苦了啊
详见附件

zmj9151 · 发表于 2022-8-25 06:44

数据模拟与要求相距甚远，看不明白

liulang0808 · 发表于 2022-8-25 07:13

https://club.excelhome.net/thread-1258425-1-1.html

liulang0808 · 发表于 2022-8-25 07:15

https://club.excelhome.net/thread-1613618-1-1.html
案例可以参考下

sparkguo · 发表于 2022-8-25 12:36

liulang0808 发表于 2022-8-25 07:15
https://club.excelhome.net/thread-1613618-1-1.html
案例可以参考下

谢谢老师，辛苦了

limonet · 发表于 2024-6-5 21:00

关键字：hashtable+replace

limonet · 发表于 2024-6-5 21:00

Sub limonet()
Dim i%, H$
For i = 6 To Range("C" & Rows.Count).End(xlUp).Row
H = H & "';" & Cells(i, "D") & "='" & Cells(i, "H")
Next i
CreateObject("wscript.shell").Run "powershell push-location " & ThisWorkbook.Path _
& ";$h=@{" & Mid(H, 3) & "'};Dir .\原始照片 -file -recurse | % {if ($h[($_.basename -replace '-','')]" _
& "-ne $null){Copy $_.fullname ('NewPic\',$h[($_.basename -replace '-','')],$_.Extension -join '')}}", 0
End Sub

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

[求助] 比较复杂的照片重命名 | 工作中的实际案例

评分

[求助] 比较复杂的 照片重命名 | 工作中的实际案例

评分

[求助] 比较复杂的照片重命名 | 工作中的实际案例