通過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創建日期

回答

相關問題