通过VBS更改Excel创建日期

要通过VBS更改的创建日期显示在文件选项卡（Excel 2010或更高版本）下的相关日期下。我的问题是如何更改Excel的内部创建日期而不是文件的创建日期（也称为

文件属性

）

我可以使用宏更改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并对打开的工作簿执行操作来执行此操作：

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都会检查工作表的兼容性。我可以改变。谢谢