QtCreator excel编程 QAxObject（持续更新）

常用使用

0） 调用excel程序

QAxWidget excel("Excel.Application");
1) 设置是否显示当前窗口：
excel.setProperty("Visible", true);
2) 更改 Excel 标题栏：
excel.setProperty("Caption", "Invoke Microsoft Excel");
3) 添加新工作簿：
QAxObject * workbooks = excel.querySubObject("WorkBooks");
workbooks->dynamicCall("Add");
4) 打开已存在的工作簿：
workbooks->dynamicCall("Open (const QString&)", QString("c:/test.xls"));
5) 获取活动工作簿：
QAxObject * workbook = excel.querySubObject("ActiveWorkBook");
6) 获取所有的工作表：
QAxObject * worksheets = workbook->querySubObject("WorkSheets");
7) 获取工作表数量：
int intCount = worksheets->property("Count").toInt();
8) 获取第一个工作表：
QAxObject * worksheet = workbook->querySubObject("Worksheets(int)", 1);
9) 获取cell的值：
QAxObject * range = worksheet->querySubObject("Cells(int,int)", 1, 1 );

使用范例

        //获取excel文件保存的路径

    QString filepath=QFileDialog::getSaveFileName(this,tr("Save orbit"),".",tr("Microsoft Office 2003 (*.xls)"));//获取保存路径

        //判断文件是否存在

    if(!filepath.isEmpty()){

        QAxObject *excel = new QAxObject(this);	//连接Excel控件

        excel->setControl("Excel.Application");//连接Excel控件

	//设置是否显示excel

        excel->dynamicCall("SetVisible (bool Visible)","false");//不显示窗体

        excel->setProperty("DisplayAlerts", false);//不显示任何警告信息。如果为true那么在关闭是会出现类似“文件已修改，是否保存”的提示

	//工作薄的设置

        QAxObject *workbooks = excel->querySubObject("WorkBooks");//获取工作簿集合

        workbooks->dynamicCall("Add");//新建一个工作簿

        QAxObject *workbook = excel->querySubObject("ActiveWorkBook");//获取当前工作簿

        QAxObject *worksheets = workbook->querySubObject("Sheets");//获取工作表集合

        QAxObject *worksheet = worksheets->querySubObject("Item(int)",1);//获取工作表集合的工作表1，即sheet1

        QAxObject *cellA,*cellB,*cellC,*cellD,*cellE,*cellF;

        QSqlTableModel tm;

        tm.setTable("useInfo");

        tm.select();

        for(int i=0;i<=tm.rowCount();i++){

            QString A="A"+QString::number(i+1);//设置要操作的单元格，如A1

            QString B="B"+QString::number(i+1);

            QString C="C"+QString::number(i+1);

            QString D="D"+QString::number(i+1);

            QString E="E"+QString::number(i+1);

            QString F="F"+QString::number(i+1);

            cellA = worksheet->querySubObject("Range(QVariant, QVariant)",A);//获取单元格

            cellB = worksheet->querySubObject("Range(QVariant, QVariant)",B);

            cellC = worksheet->querySubObject("Range(QVariant, QVariant)",C);

            cellD = worksheet->querySubObject("Range(QVariants, QVariant)",D);

            cellE = worksheet->querySubObject("Range(QVariant, QVariant)",E);

            cellF = worksheet->querySubObject("Range(QVariant, QVariant)",F);

            if (i == 0) {

                cellA->dynamicCall("SetValue(const QVariant&)",QVariant(QString("公司名称")));//设置单元格的值

                cellB->dynamicCall("SetValue(const QVariant&)",QVariant(QString("程序名称")));

                cellC->dynamicCall("SetValue(const QVasssriant&)",QVariant(QString("收集日期")));

                cellD->dynamicCall("SetValue(const QVariant&)",QVariant(QString("录入日期")));

                cellE->dynamicCall("SetValue(const QVariant&)",QVariant(QString("数据录入")));

                cellF->dynamicCall("SetValue(const QVariant&)",QVariant(QString("查看部门")));

                continue;

            }

            cellA->dynamicCall("SetValue(const QVariant&)",tm.record(i-1).value(0));//设置单元格的值

            cellB->dynamicCall("SetValue(const QVariant&)",tm.record(i-1).value(1));

            cellC->dynamicCall("SetValue(const QVariant&)",tm.record(i-1).value(2));

            cellD->dynamicCall("SetValue(const QVariant&)",tm.record(i-1).value(3));

            cellE->dynamicCall("SetValue(const QVariant&)",tm.record(i-1).value(4));

            cellF->dynamicCall("SetValue(const QVariant&)",tm.record(i-1).value(5));

        }

        workbook->dynamicCall("SaveAs(const QString&)",QDir::toNativeSeparators(filepath));//保存至filepath，注意一定要用QDir::toNativeSeparators将路径中的"/"转换为"\"，不然一定保存不了。

        workbook->dynamicCall("Close()");//关闭工作簿

        excel->dynamicCall("Quit()");//关闭excel

        delete excel;

        excel=NULL;

    }