Pregunta: | 56742 - VBA.PASAR TXT A EXCEL A LA VEZ |
Autor: | Sandra de pablo |
Buenos días, Tengo un montón de archivos txt que debo pasar a excel. He conseguido el código pero no los hace a la vez. Mi código es el siguiente. Workbooks.OpenText Filename:= _ "F:IncidenciasOnLine CeroOnLine Cero en OPenBankErrores_Online_Openbank 071030.txt" _ , Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier _ :=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:= _ False, Comma:=False, Space:=False, Other:=True, OtherChar:="¬", _ FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array _ (6, 1), Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1)), _ TrailingMinusNumbers:=True Windows("Errores_Online_Openbank 071030").Activate Windows("Errores_Online_Openbank 071030.txt").Activate ActiveWorkbook.SaveAs Filename:= _ "F:IncidenciasOnLine CeroOnLine Cero en OPenBankErrores_Online_Openbank 071030.xls" _ , FileFormat:=xlNormal, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False, CreateBackup:=False Windows("Errores_Online_Openbank 071030").Activate Gracias por adelantado |