数据库转换为Excel文件??

[jiangtch]

数据库转换为Excel文件??----怎么样做啊

[thp]

給你兩個函數：
//將DS輸出到Execl
int txDSToExecl(TDataSet *ds)
{
Variant ex,newxls,sh;
try{
ex=CreateOleObject("Excel.Application");//啟動Excel
ex.OlePropertySet("Visible",(Variant)true); //使Excel啟動后可見
newxls=(ex.OlePropertyGet("Workbooks")).OleFunction("Add");//新建一新工作薄
sh=newxls.OlePropertyGet("ActiveSheet");
}catch(...)
{
//txMsgInf("啟動Excel出錯，可能由于Excel沒有正确安裝");
return -1;
}
if(ds->IsEmpty())
{
return 1;
}
ds->First();
sh.OlePropertyGet("Cells").OlePropertyGet("Font").OlePropertySet("Size",11);
for(int i=0;i<ds->FieldCount;i++)
{
sh.OlePropertyGet("Cells",1,i+1).OlePropertySet("Value",(TVariant)(ds->Fields->Fields[i]->FieldName));
sh.OlePropertyGet("Cells",1,i+1).OlePropertyGet("Font").OlePropertySet("Bold",(TVariant)true);
}
int RecCount=0;;
while(!ds->Eof)
{
for(int i=0;i<ds->FieldCount;i++)
{
sh.OlePropertyGet("Cells",RecCount+2,i+1).OlePropertySet("Value",
(TVariant)ds->Fields->Fields[i]->AsString);
}
ds->Next();
RecCount++;
}
return 0;
}
//將DS保存到Execl文件
void txDSToExeclFile(TDataSet *ds,AnsiString FileName)
{
TStringList *sl;
AnsiString sline="";
try{
sl=new TStringList();
ds->First();
for(int i=0;i<ds->FieldCount;i++)
{
sline+=ds->Fields->Fields[i]->FieldName;
if(i!=ds->FieldCount-1)
sline+=",";
}
sl->Add(sline);
sline="";
while(!ds->Eof)
{
for(int i=0;i<ds->FieldCount;i++)
{
if(ds->Fields->Fields[i]->AsString!="")
sline+=ds->Fields->Fields[i]->AsString;
else
sline+="' ";
if(i!=ds->FieldCount-1)
sline+=",";
}
sl->Add(sline);
sline="";
ds->Next();
}
sl->SaveToFile(FileName);
}
__finally{
delete sl;
}
}

[zhiping924]

一件事情放在两个地方做当然不好了。

[zhiping924]

这样做好以后，如何在C++Builder直接调用打印程序，打印这个*.xls文件？

[mrdige]

可以用程序打开＊.xls文件，然后让用户自己确定数据的最终正确性和完整性，再让他自己在Excel中打印岂不更好？

[yinzm]

在c++ Builder 中调用这两个函数时，需要include 什么头文件？

[Robin]

呵呵!
占位!
http://expert.csdn.net/Expert/topic/1368/1368914.xml?temp=.4721491
开个玩笑,要者皆给!

[Robin]

to yinzm()
Comobj,Word2000,Excel2000,之类的!