Quien pueda guiarme con una macro
señores expertos necesito de vuestra sabiduría, estoy tratando de idear una macro para abrir archivos dat como si fueran txt, no logro ordenar las ideas les explico mi caso.
En una carpeta llamada contabilidad se cargan alrededor de 30 a 40 archivos dat los cuáles deben ser abiertos como txt y luego ser traspasados todos a una sola hoja de excel.
1 respuesta
Prueba la siguiente macro, el archivo con la macro deberás guardarlo en la misma carpeta donde se encuentra tus archivos .dat, en este caso en la carpeta “contabilidad”
Sub archivos_dat()
'Por.DAM
arch = Dir("*.dat")
Set h1 = Sheets.Add
Do While arch <> ""
uf = h1.Range("A1").SpecialCells(xlLastCell).Row + 1
Workbooks.Open arch
ActiveSheet.UsedRange.Copy h1.Cells(uf, "A")
ActiveWindow.Close
arch = Dir()
Loop
End SubSaludos.DAM
Si es lo que necesitas.
estimado lo pruebo pero solo me genera una hoja nueva
¿Y tienes en la misma carpeta los archivos .DAT?
si experto están todos los archivos en la misma carpeta.
estimado la adapte y esta funcionando ok, pero tengo una consulta no se si te la puedo realizar aquí mismo o te genero una nueva, gracias.
Podrías finalizar esta pregunta y crear una nueva en este enlace
Saludos. DAM
