如何将大量图片的名称编辑到一张EXCEL表格中？

如何将大量图片的名称编辑到一张EXCEL表格中？

1、直接复制法

进入文件夹
全选图片文件
shift+右键>复制为路径
粘贴到Excel中

注意，此时复制到excel中的包括图片的路径，可通过替换为空值的方法批量删除。
2、VBA法
复制如下代码到VBA模块中，运行即可。
SubPic_name()
Dim myPath AsString
Dim myPic AsString
Dim i AsSingle
i = 1
WithApplication.FileDialog(msoFileDialogFolderPicker)
.Show
.AllowMultiSelect= False
myPath =.SelectedItems(1)
End With
myPic =Dir(myPath & "" & "*.jpg")
Do WhileLen(myPic) <> 0
ActiveSheet.Cells(i,1) = myPic
i = i + 1
myPic = Dir
Loop
End Sub

能不能直接复制图片到EXCEL中？

用dir 函数，可以获得一个文件夹下面所有文件的名字

在“开始”-->“运行”中输入“CMD”进入dos状态，找到你存图片的文件夹，输入
tree /f >a.txt
表示把文件夹下所有文件名写入a.txt,写出的文件很有规律，导入到excel里就可以了

有规律吗？？

DOS命令会用吗？
开始-运行，键入 cmd ，转入你存图片的目录里。
输入 dir *.jpg > 1.txt
好了，在你目录里有一个叫1.txt 的文件，所有的图片文件名都在这里面了，可能你需要再做些调整。。如果你图片不只有.jpg的，可以用空格分格 比如
dir *.jpg *.bmp *.png > 1.txt
弄到了所有文件的文件名，调整成固定格式，比如每个文件名间用逗号分隔。。。这样就可以用excel打开了。。自己摸索一下

打开图片文件夹，在上面地址栏里。如果你对DOS一点都不懂，可以把那个地址粘出来，我给你完整的DOS命令。

这个得用VBA或是其他的方法了哈