excel与线程的问题(50分)

1、我想实现从数据库中导出大量数据到excel表格中，请问有没有效率最高的方法？
2、为什么我在线程中使用excel对象时，出现'未调用coinitialize'的错误？如何解决？

SoursceExcel:=CreateOleObject('Excel.application');
SoursceExcel.visible:=false;
SoursceExcel.WorkBooks.Open(DRCfgInfo.filename);
DRCfgInfo.WordsheetsCount:=SoursceExcel.Worksheets.count;