请求：DBGrid和StringGrid导出Excel的例程代码，万分感谢！！能实现导出Excel各版本的，不仅2003.先谢了！！

[ltq19780113]

请求：DBGrid和StringGrid导出Excel的例程代码，万分感谢！！能实现导出Excel各版本的，不仅2003.先谢了！！

[ccrun.com]

http://www.ccrun.com/article.asp?i=635&d=g75jbn

[ltq19780113]

妖哥好！ 这样导出EXCEL后，每列的表头都是数据库数据表的字段名，而不是DBGrid1->Title->Caption的内容

[ltq19780113]

妖哥,有空关注下小弟上述问题

[xjq2003]

 // 先将列名写入Excel表格
    for(int j=0; j<dbg->Columns->Count; j++)
    {
        // 标题行的行高
        vExcelApp.OlePropertyGet("Rows", 1).OlePropertySet("RowHeight", 20);
        //
        vSheet.OlePropertyGet("Cells", 1, j + 1)
                .OlePropertySet("Value",
                dbg->Columns->Items[j]->FieldName.c_str());
        // 设置列名单元格的背景色
        Variant vInter = vSheet.OlePropertyGet(
                "Cells", 1, j + 1).OlePropertyGet("Interior");
        vInter.OlePropertySet("ColorIndex", 15); // 灰色
        vInter.OlePropertySet("Pattern", 1); // xlSolid
        vInter.OlePropertySet("PatternColorIndex", -4105); // xlAutomatic
    }

把这个dbg->Columns->Items[j]->FieldName.c_str()修改成你要的字段不就可以了