如何在C++中將數據庫數據分行和列保存到Excel中

如何在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;i<StringGrid1->RowCount;i++)
{
for(int j=0;j<StringGrid1->ColCount;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;

看看哪種合適，就用哪種吧，嘻嘻！