Questo è il codice generato registrando una macro da excel che apre il file di testo c:\miofile.txt.
L'ho ottenuto registrando la macro e poi aprendola per modificarla.
Fai un po' di prove finchè non ottieni il risultato giusto e poi copiati il codice
codice:Sub test() ' ' test Macro ' Macro registrata il 10/10/2003 da ' ' ChDir "C:\" Workbooks.OpenText Filename:= _ "C:\miofile.txt", _ Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _ xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False, _ Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), _ Array(2, 1)) End Sub

Rispondi quotando