Qt:Qt导出Excel表格

      借鉴参考文献中的内容，并将其封装成一个ExcelExporter类，除了实现一些基本的写数据的功能，还增加了设置单元格样式、合并单元格的功能。在Qt中使用QAxObject类访问Com组件对象，需要在pro文件中添加下面的内容:

QT       +=axcontainer

Excel对象的主要层次结构:

核心代码:  

/*! *新建一个excel表格 */bool ExcelExporter::newExcel(const QString &fileName){    pApplication = new QAxObject();    bool b = pApplication->setControl("Excel.Application");//连接Excel控件    if(!b)        return false;    pApplication->dynamicCall("SetVisible(bool)", false);//false不显示窗体    pApplication->setProperty("DisplayAlerts", false);//不显示任何警告信息。    pWorkBooks = pApplication->querySubObject("Workbooks");    QFile file(fileName);    if (file.exists())    {        pWorkBook = pWorkBooks->querySubObject("Open(const QString &)", fileName);    }    else    {        pWorkBooks->dynamicCall("Add");        pWorkBook = pApplication->querySubObject("ActiveWorkBook");    }    if(!pWorkBook)        return false;    pSheets = pWorkBook->querySubObject("Sheets");    if(!pSheets)        return false;    pSheet = pSheets->querySubObject("Item(int)", 1);    if(!pSheet)        return false;    return true;}/*! * 设置最后一个Sheet名字 */void ExcelExporter::setSheetName(const QString &sheetName){    if(pSheet)        pSheet->setProperty("Name", sheetName);}/*! *增加一个sheet表 */void ExcelExporter::appendSheet(const QString &sheetName){    int sheet_count = pSheets->property("Count").toInt();  //获取工作表数目    QAxObject *pLastSheet = pSheets->querySubObject("Item(int)", sheet_count);//获取最后一个工作表    pSheet = pSheets->querySubObject("Add(QVariant)", pLastSheet->asVariant());    pLastSheet->dynamicCall("Move(QVariant)", pSheet->asVariant());    pSheet->setProperty("Name", sheetName);}/*! *删除一个sheet表 */void ExcelExporter::deleteSheet(const int index){    QAxObject *sheet = pSheets->querySubObject("Item(int)", index);    if(sheet){        sheet->dynamicCall("delete");        delete sheet;    }}/*! *设置单元格的值 */void ExcelExporter::setCellValue(int row, int column, const QString &value){    QAxObject *pCell = pSheet->querySubObject("Cells(int,int)", row, column);    if(pCell){        pCell->dynamicCall("Value", value);        pCell->setProperty("WrapText", true);  //内容过多，自动换行        delete pCell;    }}/*! *设置单元格背景色 */void ExcelExporter::setCellBackground(int row, int column, const QColor &c){    QAxObject *pCell = pSheet->querySubObject("Cells(int,int)", row, column);    if(pCell){        QAxObject* interior = pCell->querySubObject("Interior");        interior->setProperty("Color",QVariant::fromValue(c));        delete pCell;    }}/*! * 设置单元边框颜色 */void ExcelExporter::setCellBorder(int row, int column, const QColor &c){    QAxObject *pCell = pSheet->querySubObject("Cells(int,int)", row, column);    if(pCell){        QAxObject* border = pCell->querySubObject("Borders");        border->setProperty("Color", QVariant::fromValue(c));        delete pCell;    }}/*! * 设置行高 */void ExcelExporter::setCellRowHeight(int row, int column, const int h){    QAxObject *pCell = pSheet->querySubObject("Cells(int,int)", row, column);    if(pCell){        pCell->setProperty("RowHeight", h);  //设置单元格行高        delete pCell;    }}/*! * 设置列宽 */void ExcelExporter::setCellColumnWidth(int row, int column, const int w){    QAxObject *pCell = pSheet->querySubObject("Cells(int,int)", row, column);    if(pCell){        pCell->setProperty("ColumnWidth", w);  //设置单元格列宽        delete pCell;    }}/*! * 合并单元格 * \param begRow 起始行 * \param begCol 起始列 * \param endRow 终止行 * \param endCol 终止列 */void ExcelExporter::mergeCell(int begRow, int begCol, int endRow, int endCol){    QString merge_cell;    convertToColName(begCol,merge_cell);         //初始列    merge_cell.append(QString::number(begRow));  //初始行    merge_cell.append(":");    convertToColName(endCol,merge_cell);         //终止列    merge_cell.append(QString::number(endRow));  //终止行    QAxObject *merge_range = pSheet->querySubObject("Range(const QString&)", merge_cell);    if(!merge_range)        return;    merge_range->setProperty("HorizontalAlignment", -4108);    merge_range->setProperty("VerticalAlignment", -4108);    merge_range->setProperty("WrapText", true);    merge_range->setProperty("MergeCells", true);  //合并单元格    delete merge_range;}/*! * \brief 把列数转换为excel的字母列号 * \param data 大于0的数 * \return 字母列号，如1->A 26->Z 27 AA */void ExcelExporter::convertToColName(int data, QString &res){    if(data <=0 || data >= 65535)        return;    int tempData = data / 26;    int mode = data % 26;    if(tempData > 0 && mode != 0)    {        convertToColName(tempData,res);        convertToColName(mode,res);    }    else if(tempData > 0 && mode == 0)    {        convertToColName(tempData - 1,res);        res += to26AlphabetString(26);    }    else    {        res += to26AlphabetString(data);    }}/*! * \brief 数字转换为26字母 *        1->A 26->Z * \param data * \return */QString ExcelExporter::to26AlphabetString(int data){    QChar ch = data + 0x40;//A对应0x41    return QString(ch);}/*! *保存 */void ExcelExporter::saveExcel(const QString &fileName){    pWorkBook->dynamicCall("SaveAs(const QString &)",                           QDir::toNativeSeparators(fileName));    pWorkBook->dynamicCall("Close(Boolean)", false);  //关闭文件    if (pApplication != NULL)    {        pApplication->dynamicCall("Quit()");        delete pApplication;        pApplication = NULL;    }}

本方法下，写入excel表格时间较长，可能会造成程序假死现象，可以重新开启一个线程来处理这个导出过程。

参考文献中给出了一种快速读写Excel表格的方法。文章分析了导致速度满的原因是当对单元格进行读写，每处理一个单元格都要调用一个Excel子对象，如果读写很多单元格时候，就会造成反复调用而不析构，就会导致处理速度慢。

读取慢的根源就在于sheet->querySubObject("Cells(int, int)", row, col)

试想有10000个单元就得调用10000次querySubObject，网络上90%的教程都没说这个querySubObject产生的QAxObject*最好进行手动删除，虽然在它的父级QAxObject会管理它的内存，但父级不析构，子对象也不会析构，若调用10000次，就会产生10000个QAxObject对象 

   参考文献:

     Qt导出excel

        COM组件开发

       Qt快速读写Excel