Ver Mensaje Individual
  #10 (permalink)  
Antiguo 19/07/2012, 13:30
Avatar de Yoss15
Yoss15
 
Fecha de Ingreso: octubre-2007
Mensajes: 11
Antigüedad: 16 años, 5 meses
Puntos: 0
Respuesta: Duda para generar un txt con un macro

Buen dia!!!

Primero que nada gracias por el valioso he aporte, me ha servido para generar un txt desde excel, el detalle es que necesito hacerle unos pequeños cambios...

estoy utilizando el codigo:

Sub GeneraTxt()
Dim MiRango As Range, Largo As Integer, FilaActual As Long
On Error Resume Next
Set MiRango = Application.InputBox("Seleccione rango a exportar", Type:=8)
On Error GoTo 0
If MiRango Is Nothing Then Exit Sub
Open "C:\IT\TEXTOP.txt" For Output As #1
For Each Celda In MiRango
If Largo <= Len(Celda) Then Largo = 1 + Len(Celda)
Next Celda
FilaActual = MiRango.Cells(1).Row
For Each Celda In MiRango
If FilaActual < Celda.Row Then
FilaActual = Celda.Row: Print #1, ""
End If
Print #1, CStr(Celda); Space(Largo - Len(Celda));
Next Celda
Close #1
Set MiRango = Nothing

End Sub


y obtengo un resultado muy parecido al que quiero, pero el detalle esta en que quisiera que solo para la primera columna se generen 5 espacios. es decir entre la columna 1 y 2 siempre existan 5 espacios en blancos, y para todas las demas solo un espacio en blanco.. al igual que para algunas celdas, que deben tener una longitud especifica, al no tenerla en el excel, en el momento de generar el txt se complete el tamaño de esa longitud con ceros..


agradeceria mucho de su ayuda