C++ Builder 將數據庫數據導出到Excel中總結3

String strValue = "";
TBookmark mBookMark ;
TStringList *tsList = NULL;  //存儲數據
AnsiString XLSFileName;
Variant vExcelApp,vWorkBook ,vSheet;  //excel設置


try
{
tsList = new TStringList();
XLSFileName=ExtractFilePath(Application->ExeName)+"\\Template\\BookOrder.xlt";


if(!FileExists(XLSFileName))
{
HintBox(L"File BookOrder.xlt not Exists !");
return;
}


try
{
vExcelApp = Variant::CreateObject("Excel.Application");
}
catch(...)
{
MessageBox(0, "啓動 Excel 出錯, 可能是沒有安裝Excel.","消 息", MB_OK | MB_ICONERROR);

return;
}


vExcelApp.OlePropertySet("Visible", false);//隱藏Excel界面
vExcelApp.OlePropertyGet("WorkBooks").OleProcedure("Add",WideString( XLSFileName ));
//------------------Loading-----------------------
vWorkBook=vExcelApp.OlePropertyGet("ActiveWorkBook");
vSheet=vWorkBook.OlePropertyGet("ActiveSheet");
vWorkBook.OlePropertyGet("Sheets", 1).OleProcedure("Select");   //選擇第1個sheet
vSheet=vWorkBook.OlePropertyGet("ActiveSheet");
tsList->Clear();//清除緩衝區數據
TField *tItem;
mBookMark = FGrid->DataSet->GetBookmark();
FGrid->DataSet->First();
FGrid->DataSet->DisableControls();


try
{
for(int i = 0; i < FGrid->DataSet->RecordCount; i++)
{
strValue = "";
for( int j = 0;j < FGrid->DataSet->FieldCount; j++)
{
String strTemp = "";
tItem = FGrid->DataSet->Fields->operator [](j);
strTemp = tItem->AsString.Trim();
if( strTemp.IsEmpty() )
{
strTemp = "";
}
strValue = strValue + strTemp +"\t";
Application->ProcessMessages();
}
tsList->Add(strValue);
FGrid->DataSet->Next();
}
Clipboard()->Clear();
Clipboard()->SetTextBuf(tsList->Text.c_str());
vSheet.OlePropertyGet("Cells", 2, 1).OleProcedure("Select");
vSheet.OleProcedure("Paste");
}
catch(Exception &e)
{
ShowMessage("Output Failed 1:"+e.Message);
return;
}


FGrid->DataSet->GotoBookmark(mBookMark);
FGrid->DataSet->EnableControls();


//-----------------------------訂艙訂單明細-----------------------------------------------
vWorkBook=vExcelApp.OlePropertyGet("ActiveWorkBook");
vSheet=vWorkBook.OlePropertyGet("ActiveSheet");
vWorkBook.OlePropertyGet("Sheets", 2).OleProcedure("Select");   //選擇第2個sheet
vSheet=vWorkBook.OlePropertyGet("ActiveSheet");
        tsList->Clear();//清除緩衝區數據
mBookMark = FGridDetail->DataSet->GetBookmark();
FGridDetail->DataSet->First();
FGridDetail->DataSet->DisableControls();


try
{
for(int i = 0; i < FGridDetail->DataSet->RecordCount; i++)
{
strValue = "";
for( int j = 0;j < FGridDetail->DataSet->FieldCount; j++)
{
String strTemp = "";
tItem = FGridDetail->DataSet->Fields->operator [](j);
strTemp = tItem->AsString.Trim();
if( strTemp.IsEmpty() )
{
strTemp = "";
}
strValue = strValue + strTemp +"\t";
Application->ProcessMessages();
}
tsList->Add(strValue);
FGridDetail->DataSet->Next();
}
Clipboard()->Clear();
Clipboard()->SetTextBuf(tsList->Text.c_str());
vSheet.OlePropertyGet("Cells", 2, 1).OleProcedure("Select");
vSheet.OleProcedure("Paste");
}
catch(Exception &e)
{
ShowMessage("Output Failed 2:"+e.Message);
return ;


}
vExcelApp.OlePropertySet("Visible", true);//顯示Excel界面
}
catch(Exception &e)
{
ShowMessage("Output Failed 3:"+e.Message);
}


FGridDetail->DataSet->GotoBookmark(mBookMark);
FGridDetail->DataSet->EnableControls();
}