怎么按照excel自动照片命名,命名,照片

1.1.怎么批量获取图片名称,需要在excel编辑? 2.怎么批量对图片重命名

VBA可以完成该操作，试验一下如下两个代码。前者获取所有图片名称（.jpg）在A列，后者更改所有图片（按照B列）。

Sub GetPic()

Dim myFile As String

Dim myPic As String

Dim i As Single

i = 1

myFile = "C:\Users\xx\Desktop\新建文件夹\"

myPic = Dir(myFile & "*.jpg")

Do While Len(myPic) <> 0

Cells(i, 1) = myPic

i = i + 1

myPic = Dir

Loop

End Sub

Sub RenamePic()

Dim myFile As String

Dim myPic As String

Dim i As Single

i = 1

myFile = "C:\Users\xx\Desktop\新建文件夹\"

myPic = Dir(myFile & "*.jpg")

Do While Len(myPic) <> 0

Name myFile & myPic As myFile & Cells(i, 2)

i = i + 1

myPic = Dir

Loop

2.如何利用Excel实现批量修改图片名称

利用Excel 实现批量修改图片名称

实例：本校学生照片以学号为名保存，先需要全都修改为以身份证号为名保存。应用：1、建立学号和身份证号的对应序列，学校数据库中已经存在；

2、新建一列，内容为：学号+.jpg;

3、新建一列，内容为：身份证号+.jpg;

4、新建一列，内容为：ren;

5、使上述三列依次排放：ren 学号.jpg 身份证号.jpg;

6、建立一文本文件，将上述3 列内容复制到其中；