- 分享
- 0
- 阅读权限
- 10
- 在线时间
- 0 小时
- QQ
 - 主题
- 315
- 精华
- 0
- 好友
- 17
- 记录
- 0
- 帖子
- 2935
- 日志
- 0
- 相册
- 0
- UID
- 571144
- 积分
- 2044
- 经验
- 611 点
- 金币
- 14329 枚
- 元宝
- 0 个
- 注册时间
- 2011-11-2
- 最后登录
- 2025-11-22

- UID
- 571144
- 积分
- 2044
- 经验
- 611 点
- 金币
- 14329 枚
- 注册时间
- 2011-11-2
- 最后登录
- 2025-11-22
|
17#
发表于 2024-1-5 11:20
|只看该作者
来自: 江苏省苏州市 电信
当然可以使用 VBA(Visual Basic for Applications)来处理 Excel 表格和文件系统。下面是一个示例 VBA 代码,假设你的 Excel 文件中有两列,分别是姓名和顺序,以及一个文件夹中有以姓名命名的图片文件,你想按照顺序重命名这些图片文件。
首先,你需要打开你的 Excel 文件,按下 ALT + F11 打开 VBA 编辑器,在左侧的项目资源管理器中双击 Sheet1(或你的工作表名称),然后在右侧的代码窗口中粘贴以下代码:
Sub RenameImages()
Dim ws As Worksheet
Dim i As Integer
Dim oldFileName As String, newFileName As String
Dim imagePath As String
' 替换 "Sheet1" 为你的工作表名称
Set ws = ThisWorkbook.Sheets("Sheet1")
' 遍历表格中的每一行
For i = 2 To ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
' 获取姓名和顺序
oldFileName = "path_to_your_image_folder\" & ws.Cells(i, 1).Value & ".jpg" ' 假设图片文件是以姓名命名的
newFileName = "path_to_your_sorted_image_folder\" & ws.Cells(i, 2).Value & "_" & ws.Cells(i, 1).Value & ".jpg" ' 新文件名格式为 顺序_姓名.jpg
' 检查文件是否存在
If Dir(oldFileName) <> "" Then
' 重命名文件
Name oldFileName As newFileName
Else
MsgBox "文件 " & oldFileName & " 不存在。", vbExclamation
End If
Next i
MsgBox "重命名完成。", vbInformation
End Sub
在这个示例中,你需要替换 Sheet1 为你的工作表名称,以及将 path_to_your_image_folder 替换为包含图片文件的文件夹路径,path_to_your_sorted_image_folder 替换为你想要保存排序后图片的文件夹路径。这个 VBA 代码将遍历指定的工作表中的每一行,根据姓名和顺序重命名对应的图片文件。
|
|