在C++ Builder 中怎样将数据库数据导入EXCEL中
我想将数据库中的一些信息导入至EXCEL中，请问各位大侠怎样做呀？？？？ 问题点数：20、回复次数：5Top
1 楼stevenjscn（小胖）回复于 2006-05-04 23:42:06 得分 0
请不要发表可能给我们带来伤害的言论，谢谢配合
什么意思，我只是将东西放上去。
放不上去。
建议你去www.ccrun.com去看看吧。很多的。
Top
2 楼szcyx（翔翱长空）回复于 2006-05-05 08:24:34 得分 0
可以用TXLSReadWriteII组件，在http://210.21.115.122/control/2004100912385313151.rar下载Top
3 楼dxkh（沧海一粟）回复于 2006-05-05 09:27:53 得分 20
TDataSet *mDataSet=amDataSet;
int col,row;
int i,j;
bool Result;
Result = false;
if(FileExists(mFile))
{
DeleteFile(mFile);
}
col=mBaseDef->UseCount;// 现在使用的字段数目
if(col>mDataSet->FieldCount)
{
col=mDataSet->FieldCount;
}
row=mDataSet->RecordCount;
mDataSet->DisableControls();
mDataSet->First();
Variant WorkBooks;
Variant WorkBook,Sheet1;
Variant Range1;
Variant Worksheets;
try
{
// mExcel_App=Variant::CreateObject("Excel.Application");
mExcel_App=Variant::CreateObject(Str_Office_OLE_Program+".Application");
}
catch(...)
{
ShowMessage("不能创建"+Str_Office_OLE_Program+"程序，请查看是否安装"+Str_Office_OLE_Program);
// ShowMessage("不能创建Excel程序，请查看是否安装Excel!");
return false;
}
try
{
WorkBooks=mExcel_App.OlePropertyGet("WorkBooks");
WorkBooks.OleFunction("Add");
WorkBook=mExcel_App.OlePropertyGet("ActiveWorkBook");
WorkBook.OlePropertyGet("Sheets",1).OleProcedure("Select");
Sheet1=WorkBook.OlePropertyGet("ActiveSheet");
AnsiString str;
for(i=1;i<=row;i++)
{
for(j=1;j<=col;j++)
{
str=mDataSet->Fields->Fields[j-1]->AsString;
Sheet1.OlePropertyGet("Cells",i,j).OlePropertySet("Value",str.c_str());
}
mDataSet->Next();
}
WorkBook.OleFunction("SaveAs",mFile.c_str(),true);
WorkBook.OleFunction("Close");
Result = true;
}
__finally
{
mExcel_App.OleFunction("Quit");
mExcel_App=Unassigned;
mDataSet->First();
mDataSet->EnableControls();
}
Top
4 楼daydayup234（关中刀客）回复于 2006-05-08 11:07:56 得分 0
问ccrunTop
5 楼L_75480035（拖把）回复于 2006-05-08 11:10:31 得分 0
用ole技术，代码网上大把Top
