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();
}
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();
}