在Qt中用QAxObject来操作Excel

    最近写程序中需要将数据输出保存到Excel文件中。翻看《C++ GUI Programming with Qt 4》(Second Edition)发现可以在Qt中运用ActiveX控件，这真是太好了。看了很久教程也没有学会，毕竟是新手，平时也没学过ActiveX编程。一些在VB中可以方便使用的函数在Qt中都没法儿运行。网上的方法也很多解决不了问题，还会报错。也许是版本问题吧，Qt都更新了好几次了。所以只好自己多试几次。经过摸索我的方法如下：

首先在.pro文件中添加CONFIG += qaxcontainer

接着程序实现

[cpp] view plaincopyprint?

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

2.     if(!filepath.isEmpty()){  

3.         QAxObject *excel = new QAxObject(this);  

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

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

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

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

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

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

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

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

13.         QAxObject *cellX,*cellY;  

14.         for(int i=0;i<curRow;i++){  

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

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

17.             cellX = worksheet->querySubObject("Range(QVariant, QVariant)",X);//获取单元格  

18.             cellY = worksheet->querySubObject("Range(QVariant, QVariant)",Y);  

19.             cellX->dynamicCall("SetValue(const QVariant&)",QVariant(ui->tableWidget->formula(i,0).toInt()));//设置单元格的值  

20.             cellY->dynamicCall("SetValue(const QVariant&)",QVariant(ui->tableWidget->formula(i,1).toInt()));  

21.         }  

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

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

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

26.         delete excel;  

27.         excel=NULL;  

28.     }  

QString filepath=QFileDialog::getSaveFileName(this,tr("Save orbit"),".",tr("Microsoft Office 2007 (*.xlsx)"));//获取保存路径
    if(!filepath.isEmpty()){
        QAxObject *excel = new QAxObject(this);
        excel->setControl("Excel.Application");//连接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 *cellX,*cellY;
        for(int i=0;i<curRow;i++){
            QString X="A"+QString::number(i+1);//设置要操作的单元格，如A1
            QString Y="B"+QString::number(i+1);
            cellX = worksheet->querySubObject("Range(QVariant, QVariant)",X);//获取单元格
            cellY = worksheet->querySubObject("Range(QVariant, QVariant)",Y);
            cellX->dynamicCall("SetValue(const QVariant&)",QVariant(ui->tableWidget->formula(i,0).toInt()));//设置单元格的值
            cellY->dynamicCall("SetValue(const QVariant&)",QVariant(ui->tableWidget->formula(i,1).toInt()));
        }

        workbook->dynamicCall("SaveAs(const QString&)",QDir::toNativeSeparators(filepath));//保存至filepath，注意一定要用QDir::toNativeSeparators将路径中的"/"转换为"\"，不然一定保存不了。
        workbook->dynamicCall("Close()");//关闭工作簿
        excel->dynamicCall("Quit()");//关闭excel
        delete excel;
        excel=NULL;
    }

        另外附上在网上搜到的一些常用操作:

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 );

以上操作不一定每个都可用(都好用)，仅作为参考吧。起码我第9)个就没成功，不知为何？后来我改用了Range(QVariant, QVariant)的方法来替代它。

        最后附上我用QAxBase::generateDocumentation()方法获得的对应于Excel.Application的带Qt数据类型的QAxObject或者QAxWidget中可用的属性、信号和槽列表(虽然我还不大会用，不过参考下还是很好的):