通过 VBS 更改 Excel 创建日期

【问题标题】：Change Excel Created Date Through VBS通过 VBS 更改 Excel 创建日期
【发布时间】：2015-08-14 04:29:30
【问题描述】：

我想通过 VBS 更改的创建日期显示在 Related Dates 下的文件选项卡（Excel 2010 或更高版本）下。我的问题是如何更改 Excel 的内部创建日期而不是文件的创建日期（又名File Properties）。

我可以使用宏更改 Excel 的内部创建日期：

ThisWorkbook.BuiltinDocumentProperties("Creation Date") = Date

您如何通过 VBS 做到这一点？现在我有：

Dim objFSO, objFile
Set objFSO  = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile("C:\My\Path\Excel.xls")
objFile.BuiltinDocumentProperties("Creation Date") = Date

但这会改变文件的创建日期。

【问题讨论】：

标签： excel vbscript

【解决方案1】：

你也可以用同样的方法，实例化 Excel 并对打开的工作簿进行操作：

Dim e
Set e = CreateObject("Excel.Application")
e.Workbooks.Open "c:\my\path\excel.xls"
e.ActiveWorkbook.BuiltinDocumentProperties("Creation Date") = Date
e.ActiveWorkbook.Save
e.Quit

【讨论】：

好的，很好。这适用于一个文件，但是当我对多个文件执行此操作时（我只是复制并粘贴了代码并更改了变量名），它会冻结在第二个文件上。我在任务管理器中的应用程序显示为“Microsoft Excel - 兼容性检查器”
在打开工作簿之前尝试设置e.DisplayAlerts = False。
我刚刚解决了这个问题。每次保存时，我的 Excel 都会检查工作表的兼容性。我可以改变它。谢谢！