通过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:MyPathExcel.xls")
objFile.BuiltinDocumentProperties("Creation Date") = Date

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

Answer 1

您可以通过实例化Excel并对打开的工作簿执行相同的操作:

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