Importar varios archivos txt a una sola hoja de excel
Tengo este macro que importa los txt en distintas hojas del excel, pero yo quiero que aparezca en una sola hoja y en la primera columna los nombres de los archivos y en la segunda columna el contenido de los txt y así sucesivamente con las demás filas.
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
1 Respuesta
No podrás copiar la hoja completa como lo hace ahora (ActiveSheet. Copy) porque el pegado se hará en un rango parcial. Por lo tanto, se necesita copiar solo el rango ocupado, e decir 'usedrange'.
Dejo aquí la parte del bucle 'DO':
'x Elsamatilde
Do While archi <> ""
'se establece la primer fila libre según col B
filx = Workbooks(milibro).Sheets(1).Range("B" & Rows.Count).End(xlUp).Row + 1
'se abre el liro txt y se guarda su nombre para luego cerrarlo
Workbooks.OpenText archi, Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited
otro = ActiveWorkbook.Name
'se establece el rango utilizado
dire = Workbooks(otro).ActiveSheet.UsedRange.Address
'se copia el rango utilizado y se pega en col B a partir de la fila libre
Range(dire).Copy Destination:=Workbooks(milibro).Sheets(1).Range("B" & filx)
'se coloca en col A el nombre del libro capturado
Workbooks(milibro).Sheets(1).Range("A" & filx) = otro
'se cierra el libro txt
Workbooks(otro).Close False
'se busca otros libros repitiendo el bucle
archi = Dir()
LoopSdos y no olvides valorar la respuesta si resuelve tu consulta, sino comenta y lo seguimos tratado.
Te recuerdo que si el tema quedó resuelto debes valorar la consulta desde las opciones que encontrarás al final de esta respuesta para darla por cerrada.
Sino comenta y lo seguimos tratando.
Sdos!
No se a que te refieres con esos conceptos, podrías mostrarme como quedaría el macros completo, estoy probando añadir ese código pero no logro lo que estoy buscando.
También he conseguido este código pero tampoco funciona
Sub ContarHojas() Dim Item As Worksheet For Each Item In ActiveWorkbook.Sheets If Item.Name <> "Hoja1" Then MsgBox Item.Name MsgBox "llamar a macro que consolide" End If Next Item End Sub
El código que me muestras solo envía mensajes y no hace nada más...
Enviame 1 o 2 txt y te armo la macro en un libro vacío... o solicítame un ejemplo y te lo envío con mis txt. Mis correos aparecen en mi sitio que dejo al pie (puedes utilizar cibersoft. Arg de gmail)
