Macro importar archivos txt a la vez con delimitación
He visto que publicasteis un macro para importar archivos txt a excel pero yo quería que estuvieran delimitados
por punto. ¿Cómo podría ser?, el macro es el siguiente:
Sub abrir_txt()
On Error Resume Next
milibro = ActiveWorkbook.Name
Set navegador = CreateObject("shell.application")
carpeta = navegador.browseforfolder(0, "SELECCIONA CARPETA", 0, "c:\").items.Item.Path
ChDir carpeta & "\"
archi = Dir("*.txt")
Do While archi <> ""
Workbooks.OpenText archi, origin:=xlWindows, startrow:=1, DataType:=xlDelimited
otro = ActiveWorkbook.Name
ActiveSheet.Copy before:=Workbooks(milibro).Sheets(1)
Workbooks(otro).Close False
archi = Dir()
Loop
End SubTambién que se abra cada archivo en la misma hoja, en ese macro se abren un archivo en cada pestaña.
1 Respuesta
Respuesta de Luis Mondelo
2
Tu macro quedaría así:
Sub abrir_txt()
On Error Resume Next
milibro = ActiveWorkbook.Name
Set navegador = CreateObject("shell.application")
carpeta = navegador.browseforfolder(0, "SELECCIONA CARPETA", 0, "c:\").items.Item.Path
ChDir carpeta & "\"
archi = Dir("*.txt")
Do While archi <> ""
Workbooks.OpenText archi, origin:=xlWindows, startrow:=1, DataType:=xlDelimited, other:=true,otherchart:="."
otro = ActiveWorkbook.Name
range("a1").currentregion.copy
workbooks(milibro).activate
sheets(1).range("a65000").end(xlup).offset(1,0).pastespecial paste:=xlvalues
Workbooks(otro).Close False
archi = Dir()
Loop
End Subrecuerda finalizar
me aparece un error de compilación
No se encontró el argumento con nombre
Gracias
En esta línea hay un error tipográfico
Workbooks.OpenText archi, origin:=xlWindows, startrow:=1, DataType:=xlDelimited, other:=true,otherchar:="."
otherchar le sobraba una t al final
Estimado, no me corre del todo bien, pero necesito realizar lo mismo, es tomar varios txt y pasarlo con formato de separación "espacio" ... todos en una misma hoja del excel. ??? .. me ayudan ... agradecido. - Rodrigo Rivera