............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

ayuda layout pasar a un txt

Ver el tema anterior Ver el tema siguiente Ir abajo

ayuda layout pasar a un txt

Mensaje por javier palazuelos el Mar Jul 07, 2009 7:52 pm

Hola Buenas tardes !! reciba un saludo esperando ke se encuentren bien y aqui solicitandoles de su ayuda.

expongo mi duda, tengo una pequeña macro en excel que es un layout de un poliza pero cambio la estructura. ahora aumentaron los campos y pues yo lo que hago es grabarla en archivo .PRN y luego la renombro como .TXT resulta que ahora mi longitud de cada registro debe llegar a 242 caracteres y el problema que tengo es ke cuando genero el archivo solo me da 236 y las demas columnas me las pasa abajo de los ultimos registros y pues estoy batallando ya le hize la lucha y no mas no puedo. si alguien con mas experiencia ke yo me pudiera ayudar se lo agradeceria.

Ejemplo.
20080200311 salazar garcia gloria 0222 210.10 555 000
552 5455 <== esto es lo ke me baja yo quiero ke los 242 carateres esten en un solo renglon


de antemano muchas gracias

saludos

javier palazuelos

Cantidad de envíos : 10
Fecha de inscripción : 25/06/2008

Volver arriba Ir abajo

Re: ayuda layout pasar a un txt

Mensaje por sailepaty el Miér Jul 08, 2009 10:47 am

Y cual es el codigo que estas usando actualmente?

sailepaty
Moderador
Moderador

Masculino Cantidad de envíos : 135
Edad : 53
Ciudad - Pais : Dallas, TX
Version de Excel : 2007 y 2010
Fecha de inscripción : 04/03/2008

Volver arriba Ir abajo

Re: ayuda layout pasar a un txt

Mensaje por javier palazuelos el Miér Jul 08, 2009 12:12 pm

el codigo ke uso actualmente es

Sub Macro1()
'
' Macro1 Macro
' Macro grabada el 22/03/2007 por Emporio Mazatlan
'
Sheets("poliza").Select
Application.ScreenUpdating = False
Application.DisplayAlerts = False
ChDir "c:\Fondo07"
ActiveWorkbook.SaveAs _
Filename:="c:\fondo07\poliza" & Fecha & ".PRN", _
FileFormat:=xlTextPrinter, _
Password:="", _
WriteResPassword:="", _
ReadOnlyRecommended:=False, _
CreateBackup:=False

Selection.ColumnWidth = 4
Range("B1").Select
Selection.ColumnWidth = 2
Range("C1").Select
Selection.ColumnWidth = 3
Range("D1").Select
Selection.ColumnWidth = 6
Range("E1").Select
Selection.ColumnWidth = 2
Range("F1").Select
Selection.ColumnWidth = 4
Range("G1").Select
Selection.ColumnWidth = 3
Range("H1").Select
Selection.ColumnWidth = 2
Range("I1").Select
Selection.ColumnWidth = 1
Range("J1").Select
Selection.ColumnWidth = 10
Range("K1").Select
Selection.ColumnWidth = 50
Range("L1").Select
Selection.ColumnWidth = 1
Range("M1").Select
Selection.ColumnWidth = 16
Range("N1").Select
Selection.ColumnWidth = 1
Range("O1").Select
Selection.ColumnWidth = 1
' Range("P1").Select
' Selection.ColumnWidth = 10
Range("P1").Select
Selection.ColumnWidth = 3
Range("Q1").Select
Selection.ColumnWidth = 8
Range("R1").Select
Selection.ColumnWidth = 3
Range("S1").Select
Selection.ColumnWidth = 1
Range("T1").Select
Selection.ColumnWidth = 16
Range("U1").Select
Selection.ColumnWidth = 30
Range("V1").Select
Selection.ColumnWidth = 1
Range("w1").Select
Selection.ColumnWidth = 10
Range("x1").Select
Selection.ColumnWidth = 1
Range("y1").Select
Selection.ColumnWidth = 1
Range("z1").Select
Selection.ColumnWidth = 4
Range("AA1").Select
Selection.ColumnWidth = 1
Range("AB1").Select
Selection.ColumnWidth = 24
Range("AC1").Select
Selection.ColumnWidth = 13
Range("AD1").Select
Selection.ColumnWidth = 1
Range("AE1").Select
Selection.ColumnWidth = 6
Range("AF1").Select
Selection.ColumnWidth = 6
Range("AG1").Select
Selection.ColumnWidth = 6
Range("AH1").Select
Selection.ColumnWidth = 1
Range("AI1").Select
Selection.ColumnWidth = 30
Call fila
Application.ScreenUpdating = False
Call renombra
Call borra
Application.DisplayAlerts = False
Application.DisplayAlerts = False
ActiveWorkbook.Save
Application.DisplayAlerts = False
ActiveWorkbook.Close
Application.DisplayAlerts = False
Application.ScreenUpdating = True

End Sub

javier palazuelos

Cantidad de envíos : 10
Fecha de inscripción : 25/06/2008

Volver arriba Ir abajo

Re: ayuda layout pasar a un txt

Mensaje por GalileoGali el Sáb Jul 11, 2009 10:47 am

Y el resto del codigo?
fila
renombra
borra?

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional

GalileoGali
Admin

Masculino Cantidad de envíos : 1962
Edad : 61
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: ayuda layout pasar a un txt

Mensaje por Contenido patrocinado Hoy a las 1:54 am


Contenido patrocinado


Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.