C++ Builder 将数据库数据导出到Excel中总结3
2016-01-18 18:06
597 查看
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();
}
相关文章推荐
- 使用C++实现JNI接口需要注意的事项
- 使用Python生成Excel格式的图片
- 关于指针的一些事情
- Excel 曝出 Power Query 安全漏洞,1.2 亿用户易受远程 DDE 攻击
- c++ primer 第五版 笔记前言
- share_ptr的几个注意点
- VBA将excel数据表生成JSON文件
- excel vba 限制工作表的滚动区域代码
- excel vba 高亮显示当前行代码
- Lua中调用C++函数示例
- Lua教程(一):在C++中嵌入Lua脚本
- Lua教程(二):C++和Lua相互传递数据示例
- SQL 导入导出Excel数据的语句
- 文本、Excel、Access数据导入SQL Server2000的方法
- C#导出数据到Excel文件的方法
- Vbscript生成Excel报表的常用操作总结
- C#实现导入CSV文件到Excel工作簿的方法
- C++联合体转换成C#结构的实现方法
- C#基于NPOI生成具有精确列宽行高的Excel文件的方法
- 总提示[Microsoft][ODBC Excel Driver] 数值字段溢出官方解决方法