Tema: excel
Ver Mensaje Individual
  #2 (permalink)  
Antiguo 08/03/2010, 14:22
karolanet
 
Fecha de Ingreso: mayo-2008
Mensajes: 11
Antigüedad: 16 años
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.