Cómo corregir el formato de celda ya que la celda de Excel está perdiendo formato después de ejecutar la macro

Hola, estoy llenando datos en la hoja de cálculo de Excel usando el comando DDE.Execute de los formularios de Oracle. El código está bien, pero cuando estoy ejecutando la siguiente macro FORMAT_SECTION_TITLE_2 usando el comando DDE.Execute, colorea la línea pero también cambia la Fecha a número y, en cambio, el valor de la celda que aparece como una fecha adecuada aparece como 39234

Sub FORMAT_SECTION_TITLE_2()

    With Selection.Interior
        .ColorIndex = 7
        .Pattern = xlSolid
    End With
    Selection.Font.Bold = False
End Sub

También he intentado cambiar muchas cosas pero no he ayudado. Por favor recomiende.

Muchas Gracias

Actualización 1: Siddharth, agregué un nuevo sub en la hoja de Excel como mencionaste y el nombre de mi hoja es el mismo que mencionaste Hoja1

Sub formatColumn()
Sheets("Sheet1").Columns(1).NumberFormat = "dd-mmm-yy"
End Sub

preguntado el 03 de mayo de 12 a las 11:05

El código anterior no es responsable del cambio de formato. Podrías intentar dos cosas. Utilice este código antes de iniciar el proceso o después de haber terminado el proceso de exportación. Sheets("Sheet1").Columns(5).NumberFormat = "dd-mmm-yy" Cambie Sheet1 al nombre de hoja relevante y cambie 5 al número de columna respectivo. Ahora inténtalo -

Siddharth, qué código debo usar antes o después del proceso, el que mencionaste o el mío que mencioné en mi publicación. Además, el problema es que, debido a alguna condición comercial, necesitamos colorear las filas de Excel y mi código anterior está haciendo lo que se espera, pero el único problema con mi código es que solo altera el formato de las filas coloreadas. Si no ejecuto esta macro para colorear las filas, mis datos están en buen estado en Excel ... sugiera:

El código que mencioné. Dejame explicar. Si coloca mi código antes de su código, antes de exportarlo formateará la columna para la salida relevante. Si lo coloca al final, una vez que finalice la exportación, el código formateará la columna según sea necesario. Prueba ambos uno por uno. -

No Siddharth, lo intenté al final del proceso. pero sin suerte -

¿Puedes mostrar el código completo que probaste? Puedes actualizar la publicación de arriba. ¿También una instantánea de la hoja después de la exportación? -

1 Respuestas

Shax, como se descubrió después de dos horas y media de conversación, parece ser un problema XY :)

Como mencioné anteriormente, el código anterior no fue responsable de los cambios de formato. El formato fue cambiado por otra pieza de código. 

Sub two_decimals()
    Selection.NumberFormat = "#,##0.00"
End Sub

La culpa real está en el código de oráculo que estaba llamando a la two_decimals después de la FORMAT_SECTION_TITLE_2 No soy muy bueno con Oracle, pero al depurarlo encontramos este problema.

Por cierto: ¡Gracias a ti, hoy aprendí algunas cosas en Oracle!

contestado el 03 de mayo de 12 a las 15:05

No es la respuesta que estás buscando? Examinar otras preguntas etiquetadas or haz tu propia pregunta.