Isabel
01 de Diciembre del 2005

Necesito transeferir datos desde C a distintas celdas de Excel.
Se que se puede hacer mediante funciones ADO, pero no puedo instalar estas funciones en mi progrma (La versi贸n es C++ Builder 5 profesional y el sistena operativo Windos XP)
Tambien se que hay otra forma,pero no conozco como usarla.
NECESITO AYUDA!!!!!!!!
Gracias

christianfco.vela
01 de Diciembre del 2005

pARA QUE TE DES UNA IDEA, ESPERO TE SIRVVA UN POCO:

cons->Open();
Variant ap_excel = CreateOleObject("Excel.Application");
Variant lb_excel = ap_excel.OlePropertyGet("WorkBooks");
lb_excel.OleProcedure("Add");
Variant hj_excel = lb_excel.OlePropertyGet("Item",1);
lb_excel=hj_excel.OlePropertyGet("Worksheets");
lb_excel.OlePropertyGet("Item",1).OlePropertySet("Name","AUXILIAR");
hj_excel = lb_excel.OlePropertyGet("Item",1);
Variant cl_excel = hj_excel.OlePropertyGet("Cells").OlePropertyGet("Item",1,1);

cl_excel.OlePropertySet("ColumnWidth",7);
cl_excel = hj_excel.OlePropertyGet("Cells").OlePropertyGet("Item",1,2);
cl_excel.OlePropertySet("ColumnWidth",30);
cl_excel = hj_excel.OlePropertyGet("Cells").OlePropertyGet("Item",1,3);
cl_excel.OlePropertySet("ColumnWidth",10);
cl_excel = hj_excel.OlePropertyGet("Cells").OlePropertyGet("Item",1,4);
cl_excel.OlePropertySet("ColumnWidth",20);
cons->First();
int j=5;
while(!cons->Eof)
{
hj_excel.OlePropertyGet("Cells").OlePropertyGet("Item",j+6,1).OlePropertySet("Value",cons->FieldByName("clave")->AsString);
hj_excel.OlePropertyGet("Cells").OlePropertyGet("Item",j+6,2).OlePropertySet("Value",cons->FieldByName("cliente")->AsString);
hj_excel.OlePropertyGet("Cells").OlePropertyGet("Item",j+6,3).OlePropertySet("Value",cons->FieldByName("importe")->AsFloat);
hj_excel.OlePropertyGet("Cells").OlePropertyGet("Item",j+6,4).OlePropertySet("Value",cons->FieldByName("agente")->AsString);
j++;
cons->Next();
}
cons->Close();
AnsiString NombreArchivo = "Ex"+Now().FormatString("ddmmyyhhnnss")+".xls";

if (SaveDialog1->Execute())
{
NombreArchivo = SaveDialog1->FileName;
}

ap_excel.OlePropertyGet("Workbooks").OlePropertyGet("Item",1).OleProcedure("SaveAs",NombreArchivo);
ap_excel.OleProcedure("Quit");
ap_excel=Unassigned;
ShowMessage("Exportaci贸n a Excel concluida");