Guardar número con formato condicional

15/05/2008 - 23:40 por César G. | Informe spam
Hola a todos

Les expongo mi consulta, tengo una macro para exportar los datos de una
hoja de excel a un archivo de texto plano, hasta aquí todo bien, pero mi
inquietud es debido a que en algunos casos me interesa guardar no solo el
valor, sino también el formato.

Por ejemplo si en la columna C tengo datos como "02" "05" etc, quisiera que
se guardara con el "0" que tiene a la izquierda y no solo el valor de la
celda porque me lo toma como 2 y 5

En otros casos tengo números como "015338801112" y el valor de la ceda lo
toma como "15338801112" aunque en el futuro puede variar y encontrarse en
columnas diferentes y quisiera que en la macro pudiera tomar en cuenta el
formato de la celda sin tener que modificar el codigo fuente cada vez.

Espero que esta explicación sea clara para que puedan auxiliarme.

Muchas gracias.

César Galicia
 

Leer las respuestas

#1 Héctor Miguel
16/05/2008 - 05:03 | Informe spam
hola, César 1

... tengo una macro para exportar los datos de una hoja... a un archivo de texto plano
... en algunos casos me interesa guardar no solo el valor, sino tambien el formato.
... si... tengo datos como "02" "05" etc, quisiera que se guardara con el "0" que tiene a la izquierda
y no solo el valor de la celda porque me lo toma como 2 y 5 (...)



(segun parece) tienes aplicados formatos personalizadso para que "se vea" como 02, 05, etc.
pero... el contenido "real" de tus celdas es (simplemente) el numero: 2, 5, etc.

si lo anterior es acertado... una alternativa pudiera ser una macro que pase la propiedad ".Text" de las celdas
lo que dejaria el formato personalizado "incluido" (en lugar de tomar la propiedad ".Value" por omision) -?-

en la pagina de J.E. McGimpsey:
-> Saving XL files as Text/CSV: http://www.mcgimpsey.com/excel/textfiles.html
encuentras macros "genericas" para hacer este tipo de operaciones
nota que tiene instrucciones del tipo: For Each myField In ...
donde el "valor" que se transfiere al archivo de texto es: ... myField.Text

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

Preguntas similares