首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > C++ Builder >

应用多线程导出ListView中的数据到excel(OLE)

2013-01-08 
使用多线程导出ListView中的数据到excel(OLE)我要导出listview中全部数据,使用多线程导出,每次到vExcelApp

使用多线程导出ListView中的数据到excel(OLE)
我要导出listview中全部数据,使用多线程导出,每次到
vExcelApp = Variant::CreateObject("Excel.Application");
这个位置的时候会出错,提示“。。。。尚未调用 CoIntialize。。”,
我没使用多线程之前,都是好好的。使用之后到这里出错了。
线程调用的代码如下:
DWORD WINAPI ThreadFunc(LPVOID ipParameter)
{
int i;
TForm1 *pForm;
String s;
pForm=(TForm1 *)ipParameter;
AnsiString fileName_excel ;//保存excel文件名
AnsiString wjj;//需要创建的文件夹的名字
TObject *Sender;
wjj=fileP+"\\CT-VI";
AnsiString   RootDir(ParamStr(0)); //返回当前应用程序的路径
AnsiString serverPath=ExtractFilePath(RootDir);
if(!DirectoryExists(wjj)) //如果不存在这个文件夹,就创建出来
ForceDirectories(wjj);
wjj=StringReplace(wjj, "\\\", "\",TReplaceFlags()<<rfReplaceAll);
fileP = wjj;
for(int l=0;l<pForm->ListView1->Items->Count;l++)
{
pForm->ListView1->Selected=pForm->ListView1->Items->Item[l];
pForm->ListView1Click(Sender);
AnsiString name = wjj + "\\CTVI" + FormatFloat("#000",pForm->ListView1->Selected->Caption.ToInt());
fileName_excel=  name+".xls";
SaveExeclFA(pForm->ListView2,fileName_excel,serverPath,pForm->ListView5,pForm->Edit3->Text,"CT变比极性测试:");
}
}
不知道是哪里出问题了,请大神们帮忙看一下
[解决办法]
都提示的那么清楚了。在线程函数里开始的地方调用CoInitialize初始化,在结束的地方调用CoUninitialize反初始化。
[解决办法]
包含头文件#include   "utilcls.h " 

CoIntialize
CoUninitialize

热点排行