Hacer archivo txt con macro, cada campo de excel separado por |
Hola a todos,
Necesito un poco de ayuda para hacer un txt con todos los campos que están en la hoja1 del excel, estos campos necesito separarlos por |
Adjunto enlace del excel.
https://www.dropbox.com/s/a4r4fgme67fck0x/prueba_excel_filtro_eliminar_fechas.xlsm
Muchas gracias de ante mano!!!!
1 respuesta
Ok, tomo tu encargo y luego te lo mando
Te mando la macro que necesitas para crear el txt
Evidentemente la tendrás que ejecutar después de ejecutar la otra que elminaba filas...
Con esta macro se creará un archivo llamado: archivoluis.txt con la información que necesitas.
Sub crear_txt()
'por luismondelo
Open "archivoluis.txt" For Output As #1
Range("a2").Select
Do While ActiveCell.Value <> ""
dato = ActiveCell.Value & "|" & ActiveCell.Offset(0, 1).Value & "|" & ActiveCell.Offset(0, 2).Value
Print #1, dato
ActiveCell.Offset(1, 0).Select
Loop
Close #1
End Sub
Tengo que crear el txt por aparte y luego si llamar la función?
es que la corro llamándola en la macro anterior y no me funciona, tal ves sea por eso o no se... me puedes aclarar porfavor?
Tengo que crear el txt por aparte y luego si llamar la función?
es que la corro llamándola en la macro anterior y no me funciona, tal ves sea por eso o no se... me puedes aclarar por favor?
Primera ejecutas la primera macro que te mandé que era para eliminar filas
Una vez terminada la anterior ejecutas esta última
si eso hice pero no me genero el txt, hace un proceso pero no la genera estoy corriendo en excel 2010 Sera por algo de eso?
La macro está probada y funciona. Después de terminar el proceso busca un archivo llamado archivoluis.txt
