Obnova datumu u xls souboru podle statistického údaje

Řešil jsem něco podobného: http://pc.poradna.net/q/view/435929-xls-soubor-ods traneni-statistickych-udaju

Zatím odloženo ad acta...

zatím přepisuju ručně, ale už mám zauzlované ruce

čo by som spravil ja:

V total commanderi si doinštaluješ plugin cdocprop. Pomocou neho si môžeš ako samostatný stĺpec nechať zobrazovať niektoré z atribútov MS Office súborov. (v tomto prípade údaj "[=cdocprop.Created]" )
Zotriedim si súbory podľa tohto dátumu a potom cez "Files - Change attributes" meníš parameter creationdate u jednotlivých súborov (keď máš šťastie, tak je veľa súborov z jedného dňa).

No a najlepšie nakoniec, celá táto robota je zbytočná, pretože ten dátum sa pri prvom kopírovaní na iné médium (disk, flashku) zmení

jo jo, díky, vyzkouším. Mám všude nastaveno, že se při kopírování datum nemění, ale to by mi ani tolik nevadilo, protože až to setřídím a rozdělím, tak už mi to bude jedno . Takhle po jednom souboru je to fakt hrůza.

To byla geniální rada. Díky moc. To je úplně o něčem jiném. Úplně jsem na ty pluginy zapoměl.
Atributy už přepíšu, aspoň ten datum nemusím hledat.
Možná že existuje něco jako na přepis data fotek podle exifu, ale je možno označit za vyřešené. Dík

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

Díky moc, vyzkouším. Potřebuju změnu datumu na čas vytvoření. Ale může se to někdy taky hodit. S tím Totalem jsem to za chvilku měl přebrané a roztříděné, takže paráda. Pak už jen hromadně přepisovat atributy