Bene...ho preso coraggio ed ho cominciato a 'giocare' con le macro di Excell.
Ne ho fatta una che mi apre, all'interno di una cartella, tutti i files .txt che vi trova (importandoli in Excell a partire da una determinata riga).
Il file ottenuto in Excel, vorrei salvarlo con lo stesso nome ma in un'altra cartella...ma non mi tornano alcune cose:
il codice che ho fatto è il seguente:
- Codice: Seleziona tutto
Sub Prova1()
'
' Prova1 Macro
'
'
ChDir "C:\prova"
Workbooks.OpenText Filename:="C:\prova\*.txt", _
Origin:=xlWindows, StartRow:=72, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=True, _
Comma:=False, Space:=False, Other:=True, OtherChar:="|", FieldInfo:= _
Array(1, 1), TrailingMinusNumbers:=True
ChDir "C:\prova\OK"
ActiveWorkbook.SaveAs Filename:="C:\prova\OK\ " & Range.Value & ".txt" _
, FileFormat:=xlText, CreateBackup:=False
ActiveWindow.Close
End Sub
Ovvero dico di aprire tutti i files .txt con il comando:
- Codice: Seleziona tutto
ChDir "C:\prova"
Workbooks.OpenText Filename:="C:\prova\*.txt",
ma come faccio a dire che a tutti i files deve mantenere lo stesso nome?