Cómo pegar varios archivos *.dat a un solo libro de excel
tengo alrededor de 650 archivos en formato de texto con extensión *.dat
quiero pegarlos en un solo archivo de excel pero que el pegado sea hacia abajo y cuidando el orden de pegado (los archivos están ordenados secuencialmente). Encontré una macro en este mismo foro pero pega los archivos horizontalmente y yo quiero que lo haga verticalmente.
Saludos
1 Respuesta
Sub ejemplo()
mio = ActiveWorkbook.Name
ruta = ActiveWorkbook.Path
ChDir ruta & "\"
archi = Dir("*.dat")
Do While archi <> ""
Workbooks.OpenText archi, origin:=xlWindows, startrow:=1, DataType:=xlDelimited
otro = ActiveWorkbook.Name
Range("a1:a" & Range("a65000"). End(xlUp).Row).Copy
Workbooks(mio).Activate
Range("xfd2").End(xlToLeft).Offset(0,1).Select
ActiveSheet.PAste
Range("xfd1") .End(xltoLeft).Offset(0,1).Value = otro
Workbooks(otro),Close False
archi = Dir()
Loop
ActiveSheet.Columns("a:a").EntireColumn.Delete
MsgBox "proceso terminado"
End Sub
Así quedaría
Sub ejemplo()
'Mod.Por.DAM
mio = ActiveWorkbook.Name
ruta = ActiveWorkbook.Path
ChDir ruta & "\"
archi = Dir("*.dat")
Do While archi <> ""
Workbooks.OpenText archi, origin:=xlWindows, startrow:=1, DataType:=xlDelimited
otro = ActiveWorkbook.Name
Range("a1:a" & Range("a65000").End(xlUp).Row).Copy
Workbooks(mio).Activate
Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
Workbooks(otro).Close False
archi = Dir()
Loop
MsgBox "proceso terminado"
End Sub
Saludos. Dante Amor
No olvides finalizar la pregunta.
