vba - 使用 VBA 恢复 JPG 文件中的元数据

Question

现在找到了一个批量编辑程序，它可以帮助我重新控制我的图片文件山。它的另一面是元数据的一部分在编辑中消失了。我不会为丢失的高级相机设置而哭泣，但我想保留的几件事是照片日期和相机型号。
致 检索 使用该方法可以轻松完成所选信息:

Set objShellApp = CreateObject("Shell.Application")
Set objFolder = objShellApp.Namespace(strFolder)
Set objFolderItem = objFolder.ParseName(strFile)
... followed by...
Cells(2,iColumn).Value = objFolder.getdetailsof(objFolderItem, 12) '(12 = photo taken)*<br>
Cells(3,iColumn).Value = objFolder.getdetailsof(objFolderItem, 30) '(30 = camera model)

(...等具有选定的详细信息)
在文件夹的循环中，结果将是一个工作表，其中包含文件名及其元数据在表格中......这就是我现在所在的位置。我正在搜索，我正在搜索，我似乎找到的唯一方法是检索信息的不同方法，但我想知道的是如何将其放回文件中。
提前致谢。
/缺口

Answer 1

您想要做的是通过不支持的 VBA 修改图像文件标签/属性。 Shell32.Folder Shell32.FolderItem只支持读取，大部分方法都是只读的文件夹对象内。
修改元数据的唯一方法是通过外部工具，exiftool .
但它是一个命令行工具，所以使用这个 post从excel vba运行它。