如何在C++中將數據庫數據分行和列保存到Excel中？ 程序中的數據在StringGrid控件中顯示的，那如何按照StringGrid顯示的格式分行分列保存到Excel表格呢？請看如下兩種方法的實現：
    第一種方法：采用的一格一格填充數據 　Variant ExcelApp,WorkBook1,WorkSheet1;
    //-------------------------------------
    __fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
    {
    }
    //-------------------------------------
    void __fastcall TForm1::Button1Click(TObject *Sender)
    {
    AnsiString FileName = ExtractFileDir(Application->ExeName )+　 "\\a.xls";
    try
    {
    ExcelApp=Variant::CreateObject("Excel.Application");
    }
    catch(...)
    {
    ShowMessage("Sorry!Excel cannot be launched");
    return;
    }
    ExcelApp.OlePropertySet("Visible",true);
    ExcelApp.OlePropertyGet("WorkBooks").OleProcedure("Open",FileName.c_str());
    WorkBook1=ExcelApp.OlePropertyGet("ActiveWorkBook");
    WorkSheet1=WorkBook1.OlePropertyGet("ActiveSheet");
    for(int i=0;iRowCount;i++)
    {
    for(int j=0;jColCount;j++)
    {
    WorkSheet1.OlePropertyGet("Cells", i+1 , j+1 )
    .OlePropertySet("Value",StringGrid1->Cells[j][i].c_str() ) ;
    }
    }
    ExcelApp.OlePropertyGet("ActiveWorkbook")
    .OleFunction("SaveAs", FileName.c_str());
    ExcelApp.OleFunction("Quit");
    WorkSheet1 = Unassigned;
    WorkBook1 = Unassigned;
    ExcelApp = Unassigned;
    }
    第二種方法：直接從ADO把數據導出來 　Variant ExcelApp;
    Variant WorkBook1;
    Variant Sheet1;
    Variant Range;
    Variant Table;
    Variant QueryTables;
    int Count;
    AnsiString ITemp,IStr;
    AnsiString sSQL,sSQLHj, sWhere, sStartDate, sEndDate, sDate;
    try
    {
    ExcelApp=CreateOleObject ("Excel.Application");
    }
    catch(...)
    {
    ShowMessage("運行出錯，請確認裝了Excel");
    return;
    }
    ExcelApp.OlePropertyGet("WorkBooks").OleFunction("Add");
    ExcelApp.OlePropertyGet("workbooks").OleFunction("Add", "E:\\Lxrb6.xls");
    WorkBook1=ExcelApp.OlePropertyGet("ActiveWorkBook");
    Sheet1 = WorkBook1.OlePropertyGet("ActiveSheet");
    WorkBook1.OlePropertyGet("Sheets", 1).OleProcedure("Select");
    Sheet1.OlePropertySet("name","小熱報6");
    Range=Sheet1.OlePropertyGet("Range","A9");
    QueryTables=Sheet1.OlePropertyGet("QueryTables");
    sSQL="select * from Table" //這里的數據很多，我隨便簡化下！
    qryTmp->Active=false;
    qryTmp->SQL->Clear();
    qryTmp->SQL->Add(sSQL);
    qryTmp->Active=true;
    Count=qryTmp->RecordCount+12;
    IStr="A9:M"+IntToStr(Count);
    Table=QueryTables.OleFunction("Add",qryTmp->Recordset,Range);
    Table.OlePropertySet("FieldNames",false);
    Range=Sheet1.OlePropertyGet("Range", IStr.c_str());
    Sheet1.OlePropertyGet("Range", "A:K").OlePropertyGet("Columns").OleProcedure("AutoFit"); //自動列寬
    Table.OleProcedure("Refresh",true);
    WorkBook1.OleFunction("SaveAs", "E:\\6.xls");
    ShowMessage("導出完畢，請檢查");
    qryTmp->Active=false;
    ExcelApp.Exec(Procedure("Quit"));
    ExcelApp = Unassigned;