如何将大量图片的名称编辑到一张EXCEL表格中？
答案:6 悬赏:0 手机版
解决时间 2021-11-20 12:53
- 提问者网友：欲望失宠
- 2021-11-19 13:08
如何将大量图片的名称编辑到一张EXCEL表格中？
最佳答案
- 五星知识达人网友：野味小生
- 2021-11-19 14:40
1、直接复制法
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
- 进入文件夹
全选图片文件
shift+右键>复制为路径
粘贴到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
全部回答
- 1楼网友：归鹤鸣
- 2021-11-19 19:48
能不能直接复制图片到EXCEL中？
- 2楼网友：鸠书
- 2021-11-19 18:50
用dir 函数，可以获得一个文件夹下面所有文件的名字
- 3楼网友：三千妖杀
- 2021-11-19 18:03
在“开始”-->“运行”中输入“CMD”进入dos状态，找到你存图片的文件夹，输入
tree /f >a.txt
表示把文件夹下所有文件名写入a.txt,写出的文件很有规律，导入到excel里就可以了
tree /f >a.txt
表示把文件夹下所有文件名写入a.txt,写出的文件很有规律，导入到excel里就可以了
- 4楼网友：孤独的牧羊人
- 2021-11-19 17:23
有规律吗？？
DOS命令会用吗？
开始-运行，键入 cmd ，转入你存图片的目录里。
输入 dir *.jpg > 1.txt
好了，在你目录里有一个叫1.txt 的文件，所有的图片文件名都在这里面了，可能你需要再做些调整。。如果你图片不只有.jpg的，可以用空格分格 比如
dir *.jpg *.bmp *.png > 1.txt
弄到了所有文件的文件名，调整成固定格式，比如每个文件名间用逗号分隔。。。这样就可以用excel打开了。。自己摸索一下
打开图片文件夹，在上面地址栏里。如果你对DOS一点都不懂，可以把那个地址粘出来，我给你完整的DOS命令。
DOS命令会用吗？
开始-运行，键入 cmd ，转入你存图片的目录里。
输入 dir *.jpg > 1.txt
好了，在你目录里有一个叫1.txt 的文件，所有的图片文件名都在这里面了，可能你需要再做些调整。。如果你图片不只有.jpg的，可以用空格分格 比如
dir *.jpg *.bmp *.png > 1.txt
弄到了所有文件的文件名，调整成固定格式，比如每个文件名间用逗号分隔。。。这样就可以用excel打开了。。自己摸索一下
打开图片文件夹，在上面地址栏里。如果你对DOS一点都不懂，可以把那个地址粘出来，我给你完整的DOS命令。
- 5楼网友：醉吻情书
- 2021-11-19 16:07
这个得用VBA或是其他的方法了哈
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯