Salve, dovrei mettere in ordine i file Excel nel pc di mio fratello (MS Office 2000).

I file sono tutti in un'unica cartella, contrassegnati con giorno-mese-anno.
A parte il fatto del suddividere il tutto nelle cartelle ANNO e MESE cosa devo fare per
mettere in ordine cronologico i file dentro il mese?

È sufficente rinominarli da 1-1-2012 a 01-01-2012?
Se la risposta è sì, è possibile automatizzare il processo con qualche comando?

Grazie.

salve
il metodo di ordinamento dei file e cartelle dipende dal SO impiegato.
fino a Win2K i nomi dei file venivano condiserati come testo mentre per le versioni sucessive come numero
Vedi Qui la spiegazione della logica.
saluti
Giap

---

salve
non conosco l'ambiente e la sintassi della programmazione di LibreOffice quindi una macro che rinomini i file non sono in grado di realizzarla.
saluti
Giap

---

salve
mi serve sapere esattamente come è costruito il nome del file.
c'è solo la data es: 1-1-2012.xls ??
saluti
Giap

---

Salve
Premessa: Prima di far girare la macro che trovi qui sotto, fai un salvataggio dei dati oggetto della elaborazione.

Con le seguenti considerazioni:

Tutti i files si trovano all'interno di una sola cartella, tutti i nomi dei file sono espressi nella forma 1 1 12.xls
Esempio Cartella Prova nel disco C pertanto C:\Prova
all'interno della Cartella "Prova", crea tante sottocartelle per ogni mese dell'anno con questo Formato: Gennaio12 Febbraio12 ecc.

Apri Excel, vai in ambiente visual Basic raggiungibile premendo contemporaneamente Alt+F11
Menù Inserisci>Modulo
nella pagina bianca che si apre incolla questo codice:


Sub ElencoFile()
Set FSO = CreateObject("scripting.filesystemobject")
ChDrive "C"
Mydir = "c:\prova\"
ChDir Mydir
f = Dir(Mydir)
If f = "" Then Exit Sub
Do While Len(f) > 0
dd = Left(f, InStr(1, f, " ") - 1)
mm = Mid(f, InStr(1, f, " ") + 1, (InStr(InStr(1, f, " ") + 1, f, " ") + 1 - InStr(1, f, " ")) - 2)
aa = Mid(f, InStr(1, f, ".") - 2, 2)
If Len(dd) < 2 Then dd = "0" & dd
If Len(mm) = 1 Then
mm = "0" & mm
Else
mm = Mid(f, InStr(1, f, " ") + 1, 2)
End If
Select Case mm
Case 1
mmt = "Gennaio"
Case 2
mmt = "Febbraio"
Case 3
mmt = "Marzo"
Case 4
mmt = "Aprile"
Case 5
mmt = "Maggio"
Case 6
mmt = "Giugno"
Case 7
mmt = "Luglio"
Case 8
mmt = "Agosto"
Case 9
mmt = "Settembre"
Case 10
mmt = "Ottobre"
Case 11
mmt = "Novembre"
Case 12
mmt = "Dicembre"
End Select
Newpath = "c:\prova\" & mmt & aa & "\"
oldname = f
newname = dd & "-" & mm & "-" & aa & ".xls"
Name Mydir & oldname As Mydir & newname
FSO.MoveFile Source:=Mydir & newname, Destination:=Newpath
f = Dir
Loop
End Sub

Attiva il riferimento necessario su: Menù strumenti>Riferimenti metti la spunta su " Microsoft scripting Runtine"
Esegui la macro F5

finita l'esecuzione Salva e chiudi e verifica cosa è successo nella cartella Prova

saluti
Giap

---

salve
sostituisci questa riga
newname = dd & "-" & mm & "-" & aa & ".xls"
con questa
newname = dd & "-" & mm & "-" & aa & ".doc"
saluti
Giap

---

salve
se hai scritto tutto bene e la cartella prova si trova nella directory del disco C non vedo perchè non la riconosca ( vedi mai che si tratti di permesdsi di scrittura sul disco C) prova a spostare la cartella su un'altra partizione del disco "D" se l'hai. e cambia i riferimenti all'interno della macro.
saluti
Giap

---