In una cartella ho dei files .xls con vario nome.
Ho bisogno di una macro che li rinomini in questo modo:
REPORT.XLS
REPORT(1).XLS
...
REPORT(n).XLS
Attualmente utilizzo il codice seguente, che però mi da un problema: ogni tanto i files vengono rinominati NON a partire dal numero (1) ma da un altro numero (es: 101 oppure 1001).
Non riesco a capirne il motivo.
Vorrei semplicemente riprodurre ciò che accade quando "manualmente" si selezionano tutti i files di una cartella, si preme F2 e si inserisce il nuovo nome richiesto: facendolo però in automatico.
Dove sbaglio?
- Codice: Seleziona tutto
Sub RINOMINA_REPORT()
Dim NomeFiglio, cartella, Conta
cartella = "C:\REPORT\"
NomeFiglio = Dir(cartella, vbDirectory)
Conta = 1
Do While NomeFiglio <> ""
If (GetAttr(cartella & NomeFiglio) And vbDirectory) <> vbDirectory Then
Name cartella & NomeFiglio As cartella & "REPORT" & Format(Conta, "(0)") & ".XLS"
Conta = Conta + 1
End If
NomeFiglio = Dir
Loop
End Sub