vba - 使用 VBA 恢复 JPG 文件中的元数据
问题描述
现在找到了一个批量编辑程序,它可以帮助我重新控制大量的图片文件。它的另一面是部分元数据在编辑中消失了。我不会为丢失的高级相机设置而哭泣,但我想要保留的几件事是照片日期和相机型号。
使用以下方法可以轻松检索所选信息:
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)
(...等带有选定的详细信息)
在文件夹的循环中,结果将是一个工作表,其中包含文件名及其元数据在表格中......这就是我现在所在的位置。我正在搜索,我正在搜索,我似乎唯一找到的是检索信息的不同方法,但我想知道的是如何将其放回文件中。
提前致谢。
/缺口
解决方案
推荐阅读
- loops - 如何防止我的 ARM 汇编程序中出现无限循环?
- ios - 在编辑方案中选择应用程序语言时不能选择“更多”
- javascript - 这个 jquery 代码片段的 vanilla JavaScript 等价物是什么
- javascript - 如何从angularjs获取天数
- azure - Microsoft Azure AD 图形 API,如何在节点 js 中获取用户邮件以响应 botbuilder 版本 4?
- ios - 如何在启用分页的情况下实现 UIScrollView 平铺?
- ios - 在 managedContext.save 之后没有更新核心数据,但没有抛出错误
- discord.js - “宣布”命令在控制台中给出错误
- unity3d - 如何在 Unity 中预制动画?
- apache-kafka - 如何将自定义 avro 模式与 dockerized connect-datagen 一起使用?