1. 如何将大量图片的名称编辑到一张EXCEL表格中
1、直接复制法
进入文件夹
全选图片文件
shift+右键>复制为路径
粘贴到Excel中
注意,此时复制到excel中的包括图片的路径,可通过替换为空值的方法批量删除。
2、VBA法
复制如下代码到VBA模块中,运行即可。
SubPic_name()
DimmyPathAsString
DimmyPicAsString
DimiAsSingle
i=1
WithApplication.FileDialog(msoFileDialogFolderPicker)
.Show
.AllowMultiSelect=False
myPath=.SelectedItems(1)
EndWith
myPic=Dir(myPath&""&"*.jpg")
DoWhileLen(myPic)<>0
ActiveSheet.Cells(i,1)=myPic
i=i+1
myPic=Dir
Loop
EndSub