Visual Basic - Help urgente

Life is soft - evento anual de software empresarial
 
Vista:
Imágen de perfil de Martin

Help urgente

Publicado por Martin (7 intervenciones) el 05/01/2006 15:59:42
Hola necesito saber si alguien sabe como cambiar el formato de la celada de excel?? Arme un programa que ejecuta consultas que las termina cargando en un listview, y para que el usuario pueda trabajar con el resultado de esas consultas, el programa las migra a excel. El punto es que cuando paso del listview a excel los numeros quedan como si fuese un campo de letras y no se suman ni nada por el estilo. La idea es saber convertir esos datos en numerales pero a travez de la aplicacion. Bueno les dejo la parte en que se copian los datos a la planilla de excell, a lo mejor ayuda. Gracias

With xls.Range(ColumnLetter(indic + 2) & fila + 4)
.Merge
.Value = LTrim(RTrim(ListView1.ListItems(fila).SubItems(fila_1)))
End With

Martin
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Help urgente

Publicado por Petter.pe (36 intervenciones) el 06/01/2006 15:35:40
Hola puedes utilizar la función NumberFormat. Por ejemplo en tu código:

With xls.Range(ColumnLetter(indic + 2) & fila + 4)

.Merge
.Value = LTrim(RTrim(ListView1.ListItems(fila).SubItems(fila_1)))
.NumberFormat = "0.00"

End With
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

RE:Help urgente

Publicado por Raúl Santiago (178 intervenciones) el 06/01/2006 23:16:10
Otra opción es cambiar el punto decimal antes de enviar el dato con la función replace
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Martin

RE:Help urgente

Publicado por Martin (7 intervenciones) el 09/01/2006 15:15:18
Gracias, pero todavia no funciono... lo corri con las modificaciones pero hace lo mismo que antes. Gracias igual
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Martin

RE:Help urgente

Publicado por Martin (7 intervenciones) el 09/01/2006 15:16:55
Gracias, pero todavia no funciono... lo corri con las modificaciones pero hace lo mismo que antes. Gracias igual
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Help urgente

Publicado por EGV (385 intervenciones) el 09/01/2006 16:04:12
proba esto a ver si funciona

With xls.Range(ColumnLetter(indic + 2) & fila + 4)
.Merge
.Value =Val(LTrim(RTrim(ListView1.ListItems(fila).SubItems(fila_1))))
End With
sino busca por val en la ayuda que creo que hay otra pero no recuerdo ahora cual es
suerte
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Help urgente

Publicado por Ramón (90 intervenciones) el 09/01/2006 18:48:24
Prueba a poner esto antes de cargar los datos del ListView:
xls.Columns(Numero_de_Columna).Select
xls.Selection.NumberFormat = "#,##0.00"
A ver si así funciona
Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar