Exportar fichero de Excel a fichero prn

Siguiendo mi propuesta anterior - a mi al usar el metodo SaveAs me ha dejado
las columnas perfectamente alineadas y con 5 espacios:

eee eee eee eee eee eee
eee eee eee eee eee eee
eee eee eee eee eee eee
eee eee eee eee eee eee
eee eee eee eee eee eee
eee eee eee eee eee eee

Saludos,
KL

"Joluco" wrote in message
news:%

>La diferencia entre cómo quedará el fichero .prn al exportar los datos
usando el código anterior y cómo quedarían usando el tipo .prn de Excel es
que Excel "tabula" los datos añadiendo espacios para que todas las
"columnas" tengan el mismo tamaño, mientras que el código anterior no lo
hace: el único separador será un espacio.

Perdona mi insistencia, pero precisamente era eso lo que buscaba: que el
código añadiese los mismos espacios que Excel para que las columnas fueran
del mismo tamaño. Eso es lo que no consigo averiguar... :-)

Gracias Fernando

"Joluco" escribió en el mensaje news:%

>La diferencia entre cómo quedará el fichero .prn al exportar los datos
usando el código anterior y cómo quedarían usando el tipo .prn de Excel es
que Excel "tabula" los datos añadiendo espacios para que todas las
"columnas" tengan el mismo tamaño, mientras que el código anterior no lo
hace: el único separador será un espacio.

Perdona mi insistencia, pero precisamente era eso lo que buscaba: que el
código añadiese los mismos espacios que Excel para que las columnas fueran
del mismo tamaño. Eso es lo que no consigo averiguar... :-)

Gracias Fernando

Pero entonces no tienes necesidad de usar el código anterior. Simplemente puedes guardar la hoja desde Archivo->Guardar como, seleccionando "Texto con formato (delimitado por espacios)(*.prn)" en la opción 'Guardar como tipo:'

Si tienes que hacerlo usando VBA, el código podría ser:

Application.DisplayAlerts = False
Workbooks("NombreDelLibroPRN.prn").SaveAs Filename:="C:\archivo.prn", FileFormat:=xlTextPrinter
Application.DisplayAlerts = True

Un saludo.


Fernando Arroyo
MS MVP - Excel

Muchas gracias. Ya lo tengo.
Sí, lo hacía con Archivo-Guardar como... pero tengo muchas hojas en el mismo
libro y perdía bastante tiempo.
Me hacía falta sólo el código en VBA. Debía ser una tontería, pero no
conseguía dar con él, ya dije que soy novato en esto. Me voy a comprar un
buen libro y empezaré a estudiar. ;-)
Muchísimas gracias de nuevo, Fernando.

Pero entonces no tienes necesidad de usar el código anterior. Simplemente

puedes guardar la hoja desde Archivo-Guardar como, seleccionando "Texto con
formato (delimitado por espacios)(*.prn)" en la opción 'Guardar como tipo:'

Si tienes que hacerlo usando VBA, el código podría ser:

Application.DisplayAlerts = False
Workbooks("NombreDelLibroPRN.prn").SaveAs Filename:="C:\archivo.prn",
FileFormat:=xlTextPrinter
Application.DisplayAlerts = True

Un saludo.


Fernando Arroyo
MS MVP - Excel

Sí, lo tengo. Gracias. Entre tú y Fernando me lo habéis solucionado.
Un placer haber contado con vuestra ayuda.


"KL" escribió en el mensaje
news:#

Siguiendo mi propuesta anterior - a mi al usar el metodo SaveAs me ha

dejado

las columnas perfectamente alineadas y con 5 espacios:

eee eee eee eee eee eee
eee eee eee eee eee eee
eee eee eee eee eee eee
eee eee eee eee eee eee
eee eee eee eee eee eee
eee eee eee eee eee eee

Saludos,
KL

"Joluco" wrote in message
news:%
> >La diferencia entre cómo quedará el fichero .prn al exportar los datos
> usando el código anterior y cómo quedarían usando el tipo .prn de Excel

es

> que Excel "tabula" los datos añadiendo espacios para que todas las
> "columnas" tengan el mismo tamaño, mientras que el código anterior no lo
> hace: el único separador será un espacio.
>
> Perdona mi insistencia, pero precisamente era eso lo que buscaba: que el
> código añadiese los mismos espacios que Excel para que las columnas

fueran

> del mismo tamaño. Eso es lo que no consigo averiguar... :-)
>
> Gracias Fernando
>
>
>
>