Изменение даты создания отчета с помощью VBS

Question

Созданная дата, которую я хочу изменить через VBS, отображается на вкладке «Файл» (Excel 2010 или новее) под номером Related Dates. Мой вопрос заключается в том, как изменить внутреннюю созданную дату Excel и не созданную дату файла (aka File Properties).

я могу изменить интерьер, созданный дату в 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 

Но это изменяет созданную дату файла.

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