Programación General > C++ Builder

 Importar Archivo Excel A Builder

(1/2) > >>

curro9:
Hola, necesito imoprtar un archivo Excel a Builder 6 para procesar los datos que tiene y generar informes, pero no se como hacerlo, a ver si alguien me echa una mano

saludos

Linspire:
Navegando en Internet encontré lo siguiente, la verdad nunca lo he probado y no se si funcione pero supongo que te servirá para darte una idea.


Tengo el siguiente codigo y solo me funciona con la primera fila, pruebalo y me dices si te funciona correctamente, o bien que error puedo tener.

el problema radica cuando habilito la linea
oSheet.Exec(PropertySet("Cells") << iFilaAx << iColumAx << String(100));

int Colum, Fila, MaxFila = 10, MaxColum = 3;
int iFilaAx, iColumAx;
int iMaxValueToWrite = 65535, iValueToWrite=0, iAuxiliar;
String sValor;

Variant oExcel, oSheet;

try
{
oExcel = GetActiveOleObject("Excel.Application");
}
catch(EOleSysError &E)
{
ShowMessage("Error: no se encontró EXCEL abierto.");
return;
}

// -------- Selecciona la hoja activa
oSheet = oExcel.Exec(PropertyGet("ActiveSheet"));
if (oSheet.IsEmpty())
{
ShowMessage("No hay ninguna hoja activa");
return;
}

//Escribir en la columna A, B y C hasta la fila 10
for(Fila = 1; Fila <= MaxFila; Fila++)
{
for(Colum = 1; Colum <= 3; Colum++)
{
iAuxiliar = iValueToWrite;
Memo1->Lines->Add("Fila " + String(Fila) + " (" + String(MaxFila) + ")" + " Colum " + String(Colum) + " (" + String(MaxColum) + ")");
iFilaAx = Fila;
iColumAx = Colum;
oSheet.Exec(PropertySet("Cells") << iFilaAx << iColumAx << String(100));
// iValueToWrite++;

// if(iValueToWrite == iMaxValueToWrite) iValueToWrite = 0;
}
}
oExcel = oSheet = Unassigned;


Suerte!...

curro9:
gracias lo probaré

paulados:
Hola, respecto al Excel yo he estado trabajando con esto hace unas semanas y he tenido muchos problemas, porque encontraba codigos que se suponía que funcionaban y luego daban fallos.
Yo personalmente he probado este código con builder6. Lo que necesita tener instalado es, obviamente, el excel y el soporte del lenguaje Macro VBA.
Te envío el proyecto y espero que no tengas ningún problema.

Saludos,
Paulados.

P.D: Los trozos que hay de código comentado con comentarios en alemán es del código del que cogí el ejemplo que me funcionó. Te lo dejo por si te sirve de algo.

P.D: No se si el código que ha mandado el otro chaval funciona, la verdad es que no lo he mirado ni probado, pero si te da problemas prueba con el que te envío.

curro9:
Gracias tio, aunque he encontrado otra forma un poco mas aparatosa, asi que esta retocandola me servirá. Gracias

Navegación

[0] Índice de Mensajes

[#] Página Siguiente