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

如何找到你存图片的文件夹,
2025-01-07 15:04:58
推荐回答(5个)
回答1:

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

回答2:

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

回答3:

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

回答4:

有规律吗??

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

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

回答5:

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