Tag: exif

使用vba读取和列出exif数据

我正在尝试在Excel电子表格中列出文件夹中每个图像的EXIF数据，如焦距和曝光时间。 有没有人有任何指针？ 我已经看到了其他方法，但只列出date创build等，但从来没有EXIF数据（在图像属性的“详细信息”选项卡中）。 我不确定这可以做甚么。

处理文件夹中的某些文件时发生溢出错误6

我想在我的所有照片excel中列出一些exif数据（拍摄date，相机制作和型号）。 我把它运行在大约3000个文件的文件夹中，1796个文件就完美了。 我评论了“在错误恢复下一步”看看是怎么回事。 这条线上有一个错误6溢出： objExif.Load objFile.Path 如果将已处理的图像移出文件夹，则在检查剩余的图像时，将立即出现macros观错误。 如果我对新文件夹中的已处理图片运行macros，则不会引发错误。 这导致了这样的结论：两套图画都有不同的东西，但是我看不到任何东西。 这两套都是数码照片，未经编辑，有效的exif数据。 我希望有一个人可以帮助我？ 码： Private objFSO As Object, objTopFolder As Object, objSubFolder As Object, objFile As Object Private i As Long Private objExif As New ExifReader Sub GetFiles() On Error Resume Next i = 2 Worksheets("Filelist").Range("A2:G5000").Value = "" Worksheets("Paths").Range("A2:A5000").Value = "" Worksheets("Data").Range("E15:E5000").Value = "" If Sheets("Data").Range("B2").Value <> […]