通过VBS更改Excel创建日期

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

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

来源

2015-08-13 Stephen Collins

你会做同样的方式，通过实例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

来源

2015-08-13 20:22:54 Bond

好大。这适用于一个文件，但是当我用多个文件（我刚刚复制并粘贴代码和更改的变量名称）执行此操作时，它会冻结第二个文件。我在任务管理器中的应用程序显示“Microsoft Excel - 兼容性检查程序” –

尝试在打开工作簿之前设置“e.DisplayAlerts = False”。 – Bond

我刚解决了这个问题。每次我保存时，我的Excel都会检查我的床单的兼容性。我可以改变这一点。谢谢！ –

通过VBS更改Excel创建日期

回答

相关问题