- Mensajes
- 4
- Puntuación de reacción
- 0
Hola a todos
Alguien sabe como subir multiples archivos txt a un csv lo necesito para utilizar el plugin wp all import. Tengo un macros que lo hace pero crea distintas pestañas por archivo en vez de hazelo por filas y en una misma pestaña.
Este es el codigo del macros:
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 Sub
Alguien sabe como subir multiples archivos txt a un csv lo necesito para utilizar el plugin wp all import. Tengo un macros que lo hace pero crea distintas pestañas por archivo en vez de hazelo por filas y en una misma pestaña.
Este es el codigo del macros:
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 Sub