通过VBS更改Excel创建日期

Question

我想通过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

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

Answer 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