Ver Mensaje Individual
  #5 (permalink)  
Antiguo 25/08/2007, 17:33
Avatar de Pablus00
Pablus00
 
Fecha de Ingreso: diciembre-2003
Ubicación: A un click de distancia
Mensajes: 1.044
Antigüedad: 16 años, 6 meses
Puntos: 11
Re: Duda para generar un txt con un macro

Encontre este macro y lo adapte a lo que mas o menos busco, lo dejo por si alguien lo necesita, lo unico que le faltaria adaptar es que guarde la informacion de un rango en el txt, en vez de solo una columna

Sub Txt2()
Dim Archivo As String, dato As String
Archivo = "C:\" & Range("A1").Value & ".txt"
Open Archivo For Append As #1
Do While ActiveCell <> Empty
dato = ActiveCell.Value
Print #1, dato
ActiveCell.Offset(1, 0).Activate
Loop
Close #1
End Sub
__________________
-- Nunca te des por vencido, aún vencido -- Web