ole 读写 excel

Variant ea,wb,s,s1;

 

        ea = Variant::CreateObject ("Excel.Application");

        ea.OlePropertySet("Visible", (Variant)false);

        wb=ea.OlePropertyGet("Workbooks");

        wb.OleFunction("add",-4167);

        wb=ea.OlePropertyGet("ActiveWorkBook");

        s=wb.OlePropertyGet("ActiveSheet");

        s.OlePropertySet("Name", "Variant变量导出Execl文档方法演示");

 

        s1 = wb.OlePropertyGet("Sheets").OleFunction("add");

        s1.OlePropertySet("Name","范例表单2");

 

        //s =wb.OlePropertyGet("Sheets","范例表单2"); /*设置工作簿使用的当前表单*/

 

        TColor r = clRed;

        for(int i = 0; i < 5; i++)

        {

 

        for(int j = 0; j < 5; j++)

        {

        s.OlePropertyGet("Cells",i+1,j+1).OlePropertyGet("Font").OlePropertySet("Color",r);

 

        s.OlePropertyGet("Cells",i+1,j+1).OlePropertySet("Value","mumy");

        }

        if(r == clRed) r = clBlue;

        else r = clRed;

        }

        ea.OlePropertySet("displayAlerts",false);

        AnsiString p =  GetCurrentDir()+"//Variant演示.xls";

        if(!FileExists(p))

        wb.OleProcedure("SaveAs", p.c_str());

        else

        ShowMessage("文件已经存在!");

        wb.OleProcedure("Close");

        ea.OleFunction("Quit");