作者：乔山办公网日期：
返回目录：excel表格制作
下载附件中的文件，放到照片所在文件夹，双击后就会自动生成一个包括该文件夹下所有文件名称的文本文档，复制文本文档里的内容到excel即可。
1、打开要转为数据的图片所在的文件夹，
2、用鼠标选黑这些照片后度，
3、按键盘上的Shift键，在选黑的照片上右键，
4、在问弹出的菜单上选择“复制为路径”，
5、打开Excel并新超表格，
6、在a1单元格上右键，
7、在弹出的菜单中选择性粘贴，选择“文本”，这样，这些文件名（含路径答）就转到excel中了，可以用替换功能把不需要的内容替换掉。专
运行下面这百个宏：度
sub test()
With Application.FileDialog(msoFileDialogFolderPicker)
.AllowMultiSelect = False
.Title = "-----------------------请选择照片所在的知文道件夹--------------"
.Show
If .SelectedItems.Count = 0 Then MsgBox "你放弃了操回作！答": exit sub
mPath = .SelectedItems(1)
End With
fn = Dir(mPath & "\*.jpg")
do while fn<>""
i=i+1
cells(i,1)=fn
fn=dir
loop
msgbox "收集完成！"
end sub
怎样把一批照片的文件名变成知excel数据的解决方法如下：
1、打开要转为数据的图片所在的文件夹，
2、用鼠标选黑这道些照片后，
3、按键盘上的Shift键，在选黑的照片上右键，
4、在弹出的菜单上选择“复制为路径”，
5、打开Excel并新超表格，
6、在a1单元格版上右键，
7、在弹出的菜单中选择性粘贴，选择“文本”
这样，这些文件名（含路权径）就转到excel中了，可以用替换功能把不需要的内容替换掉。