通过VBS更改Excel创builddate

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

我可以用macros来改变Excel的内部创builddate：

 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 

但是这改变了文件的创builddate。

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