
08/03/2010, 14:22
|
| | Fecha de Ingreso: mayo-2008
Mensajes: 11
Antigüedad: 16 años, 10 meses Puntos: 0 | |
Respuesta: excel Lo que tenés que hacer es darle formato moneda a la celda y luego poner el valor sin formato.
Si no sabés cómo hacerlo, podés grabar una macro en excel mientras lo hacés a mano. Luego mirás el código de VBA que te generó excel y listo.
O sea, sobre excel, ir a: Tools -> Macro -> Record New Macro -> Aceptar
Aparecerá una barra de herramientas flotante.
Poner el formato a la celda y escribir a mano el valor sin formato
Poner Stop en la barra de herramientas flotante que apareció
Ir a Tools -> Macro -> Visual Basic editor -> Abrir Modules -> Module1 y ahí tendremos el código.
A mí me generó este código:
Range("F4").Select
Selection.NumberFormat = "$#,##0.00"
ActiveCell.FormulaR1C1 = "55"
Para pegarlo en visual, deberías tener un par de variables ...
Dim obExcelApp As excel.Application
Dim obExcelWorkbook As excel.Workbook
Dim Sheet As excel.Worksheet
Set obExcelApp = New excel.Application
obExcelApp.Workbooks.Open AppPath & XLS
Set obExcelWorkbook = obExcelApp.Workbooks(XLS)
Set Sheet = obExcelWorkbook.Sheets(1)
Sheet.Activate
Sheet.Range("F4").Select
obExcelApp.Selection.NumberFormat = "$#,##0.00"
Sheet.ActiveCell.FormulaR1C1 = "55"
Si no usás esas variables, a veces te va a funcionar el código pero a veces no.
Espero que esto resuelva tu problema.
Saludos.
Caro. |