Ak ti stačí nastaviť len dátum poslednej zmeny súboru a tie súbory sú v jednom adresári, tak možno využiješ takýto skript:
Dim shell, fso, excel, folder
Dim aFile, aWorkbook, aProperty
Set shell = CreateObject("Shell.Application")
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = shell.NameSpace(fso.GetAbsolutePathName("."))
Set excel = CreateObject("Excel.Application")
For Each aFile In folder.Items
If Not aFile.IsFolder And fso.GetExtensionName(aFile) = "xls" Then
Set aWorkbook = excel.Workbooks.Open(aFile.Name)
For Each aProperty in aWorkbook.BuiltinDocumentProperties
If aProperty.Name = "Creation date" Then
aFile.ModifyDate = aProperty.Value
Exit For
End If
Next
aWorkbook.Close
Set aWorkbook = Nothing
End If
Next
excel.Quit
Set excel = Nothing
Set folder = Nothing
Set fso = Nothing
Set shell = Nothing