通过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
但是,这改变了文件的创建日期。
答
你会做同样的方式,通过实例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”。 – Bond
我刚解决了这个问题。每次我保存时,我的Excel都会检查我的床单的兼容性。我可以改变这一点。谢谢! –