patel ha scritto:tricilindrico ha scritto:Ciao Patel! grazie per il codice
purtroppo però non funziona.....
Non avendo la possibilità di provarlo ho fatto errori, prova così
- Codice: Seleziona tutto
Sub prova()
Dim i As Integer, f As String, miopath As String
cartella = InputBox("Scrivi il numero di produzione")
miopath = "\\10.11.12.13\export\DIR\" & cartella & "\"
f = Dir(miopath & "*.txt")
If f = "" Then Exit Sub
While f <> ""
i = i + 1
Cells(i, 1) = f
NNome = Mid(f, 1, 10) & Mid(f, 15, 4) & Mid(f, 13, 2) & Mid(f, 11, 2) & Mid(f, 19, 4)
Cells(i, 2) = NNome
Wend
'<<<<< codice ordinamento
URG = Cells(Rows.Count, 1).End(xlUp).Row
Range(Cells(1, 1), Cells(URG, 2)).Select
Selection.Sort Key1:=Cells(2, 2), Order1:=xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
Range("A1").Select
End Sub
ecco, prima di NNome ho messo
f = Dir
in questo modo legge tutta la directory, però nasce un secondo problema, il risultato è questo:
produzione100720121529.txt produzione201207101530
produzione100720121530.txt produzione201207101710
produzione100720121710.txt produzione201207110853
produzione110720120853.txt produzione201205231738
produzione230520121738.txt produzione201205241710
produzione240520121710.txt produzione201205241712
produzione240520121712.txt produzione201205241717
produzione240520121717.txt produzione201205241722
produzione240520121722.txt produzione201205241727
produzione240520121727.txt produzione201205241750
produzione240520121750.txt produzione201205281733
produzione280520121733.txt
in pratica in colonna B viene inserito il nome "trasformato" del file successivo, quindi non posso ordinare )anche perchè manca l'ultimo valore)
però non capisco dal codice come faccia a fare questa cosa ...