Club Builder

[Diego]

He estado buscando por el foro y no lo encuentro. Alguien me podría decir como cambiar el formato de una celda de excel para que sea numérico.
Yo me supongo que será algo parecido a lo siguiente:
VRange.Exec(PropertySet("Type") << "Numeric");

Pero no se cual es la nomenclatura. Si alguien me pudiera ayudar se lo agradecería

[_Leo]

Quizás te sirva:

// Añadimos: #include <ComObj.hpp>
Variant vExcel, vHoja;

//--- Abre Excel
vExcel = CreateOleObject("Excel.Application");
vExcel.OlePropertySet("Visible", true);

//--- Añade una nueva hoja y la selecciona
vExcel.OlePropertyGet("Workbooks").OleProcedure("Add");
vHoja = vExcel.OlePropertyGet("ActiveSheet");

//--- Escribe algo en varias celdas
vHoja.OlePropertyGet("Range", "A1:D5").OlePropertySet("Value", "111");
//--- Cambia el formato
vHoja.OlePropertyGet("Range", "A2:D2").OlePropertySet("NumberFormat", "#.##0,00 €");

vExcel = vHoja = Unassigned;

---

En el Excel2002/XP los nombres de los formatos equivalen a las siguientes mascaras:

General = "Estándar"
Número = "0,00"
Moneda = "#.##0,00 €"
Contabilidad = "_-* #.##0,00 €_-;-* #.##0,00 €_-;_-* "-"?? €_-;_-@_-"
Fecha = "dd/mm/aaaa"
Hora = "[$-F400]h:mm:ss AM/PM"
Porcentaje = "0,00%"
Fracción = "# ?/?"
Científica = "0,00E+00"
Texto = "@"
Especial/Cod.Post. = "00000"

[Diego]

Muchisimas gracias, voy a probarlo, pero creo que me servirá perfectamente.