Qt中使用QAxObject操作Excel

在Qt中使用ActiveX控件

 

        Qt的windows商业版本提供了ActiveQt这个framework，使用这个组件我们可以在Qt中使用ActiveX控件，并且也可以开发基于Qt的ActiveX控件。ActiveQt包含了两个组件QAxContainer和QAxServer。

        l  QAxContainer允许我们使用COM对象，并且可以将将ActiveX控件嵌入到Qt程序中去。

        l  QAxServer可以将我们写的Qt控件导出为COM对象或者是ActiveX控件。

这次由于只是操作Excel进行读取写入，故只用到了QAxContainer。

QAxContainer不包含在QtCore里面，所以要使用QAxContainer的话还必须要在.pro文件中添加CONFIG+=qaxcontainer。

操作Excel接口说明

         其实接口只有几个：

属性方面的：

boolsetProperty(const char *name, const QVariant &value);
QVariant property(const char *name) const;

对象方面的：

QAxObject*querySubObject(const char *name, const QVariant &v1 = QVariant(),……)

对象方法方面的：（函数）

QVariantdynamicCall(const char *name, const QVariant &v1 = QVariant(), ……)

常用的基本也就这几个了。

基本的操作流程都是：先是querySubObject() 获取某一个子对象，然后可以对其设置属性setProperty()或读取属性property()，进一步可以调用dynamicCall()来实现对其进行操作。

 来一段网上常见的代码：

_excelObject =new QAxObject("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::Excel(constQString &fileName, QAxObject *excelServer)
: _excelObject(excelServer),_sheetsCount(1)
{
if (_excelObject == NULL)
{
_excelObject = newQAxObject("Excel.Application");
if (!_excelObject)
{
throwruntime_error(string("Excel服务启动失败.\r\n [DETAILS] Excel::Excel(); \r\n newQAxObject(\"Excel.Application\");"));
}
_isSetExcelServer = false;          ///< 构造函数的excelServer是否初始化（如果没有，需要我们初始化，析构里需要我们删除）
}
else
{
_isSetExcelServer = true;          ///< 构造函数的excelServer是否初始化（如果没有，需要我们初始化，析构里需要我们删除）
}
_excelObject->setProperty("Visible", false);         ///< 不可见   true的话可以看到Excel窗口如何操作的，方便调试
QAxObject * workbooks =_excelObject->querySubObject("WorkBooks");
workbooks->dynamicCall("Open (constQString&)", fileName);
// ToDo ...
// 校验是否打开了

_curWorkbook =_excelObject->querySubObject("ActiveWorkBook");       ///< 当前工作簿
_worksheets =_curWorkbook->querySubObject("WorkSheets");    ///< 当前excel对应的所有sheet集合
_sheetsCount =_worksheets->property("Count").toInt();       ///< 当前excel文件里包含的sheet个数
_curWorkSheet =_curWorkbook->querySubObject("Worksheets(int)", 1);///< 当前sheet（实际就是第一个sheet）
_usedRange = usedRange();

}

这里，我们先是启动Excel服务程序，然后获取其子对象workbooks，调用打开文件函数打开一个Excel文件，再定位到其中的一个sheet：curWorkSheet。接下来都是对该curWorkSheet进行操作。

 

Qt操作Excel总结

         刚开始也不知道如何下手，又没有什么现成的例子，只知道那几个接口，所有的调用参数根本不知道怎么设置。后来进过慢慢摸索，发现了如下的方法：

 

1、 可以打开Excel文件，然后录制一段宏代码（Excel2010视图—宏—录制宏）。你可以先手动执行一遍你想要的操作，然后查看宏代码。宏代码类似下面一段：

Sub 宏1()
'
' 宏1 宏'
Range("B11").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-9]C:R[-3]C)"
Range("G11").Select
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlXYScatter
ActiveSheet.Shapes("图表 1").IncrementLeft -52.5
ActiveSheet.Shapes("图表 1").IncrementTop 26.25
ActiveSheet.Shapes("图表 1").ScaleWidth 1.3125, msoFalse, msoScaleFromTopLeft
ActiveSheet.Shapes("图表 1").ScaleHeight 1.1840277778, msoFalse, _
msoScaleFromTopLeft
ChDir "F:\百度云\Temp"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).Name = "=""系列名称1"""
ActiveChart.SeriesCollection(1).XValues = "=小汽车!$B$1:$Q$1"
ActiveChart.SeriesCollection(1).Values = "=小汽车!$B$6:$Q$6"
ActiveChart.PlotArea.Select
ActiveChart.ChartArea.Select
End Sub

代码含义看英文单词应该能猜出个大概意思了吧。。。插入一个散点图，设置数据。。。

这段宏跟我们的Qt有什么关系呢？

2、 别急，在宏代码窗口这边按下F1，祭出神器——Excel2010
开发人员参考帮助菜单

 


在Excel对象模型参考目录下，我们可以看到所有的操作对象（如图所示），点击某个对象，可以看到有“属性”“方法”，部分还有“事件”，这些就是我们在Qt里调用时函数参数的来源参考了。

譬如，WorkBook下面有个方法close，用于关闭当前工作簿：



这里说明这个close()函数有三个可选参数，这样在Qt里我们就可以这样调用了：

_curWorkbook->dynamicCall("Close(Boolean)", false);

dynamicCall()第一个参数指定函数名，后面紧接着一个或者多个该函数参数。这里表示我们直接关闭工作簿不保存。

好了，基本就是这样的方法了：

1、 先根据你想要执行的操作，手动操作一遍Excel并录制一段宏

2、 根据宏代码，结合Excel2010 开发人员参考帮助菜单，将宏代码翻译成Qt代码

3、 run.

下面插入一段Qt操作Excel，插入散点图，设置散点图数据，添加趋势线，并得到趋势线函数式。

Excel中插入图表并显示趋势曲线

void TFVExcelFileProcess::formula(double percentage)
{
//getColFenwei(percentage);
///////////////////////////////////////
QAxObject *shapes = _curWorkSheet->querySubObject("Shapes");

QAxObject *emptyCell = _curWorkSheet->querySubObject("Cells(int,int)", 1, usedColsCount()+3 );
// 先选中一个空白的地方，不然后面的SeriesCollection会先将所有行都做个散点图。。。
emptyCell->dynamicCall("Select(void)");
shapes->dynamicCall("AddChart(int)",-4169,100,100,500,800); // height width
// 再将视野拖回到左上角区域
QAxObject *range = _curWorkSheet->querySubObject("Range(QVariant)","$B$1:$D$1");
range->dynamicCall("Select(void)");

int nbChart = shapes->property("Count").toInt();
qDebug() << "chart size :" <<nbChart;
QAxObject *shape = shapes->querySubObject("Range(int)",nbChart);
qDebug() << "Name" <<shape->property("Name").toString();        // 获取Name属性
qDebug() << "Title" <<shape->property("Title").toString();      // 获取Title属性
//shape->dynamicCall("ScaleWidth(QVariant,QVariant)",2,0);
shape->dynamicCall("Select(void)");

QAxObject *chart = _curWorkbook->querySubObject("ActiveChart");
QAxObject *seriesCollection = chart->querySubObject("SeriesCollection()");
seriesCollection->dynamicCall("NewSeries (void)");
int nb = seriesCollection->property("Count").toInt();
QAxObject *series = chart->querySubObject("SeriesCollection(int)",nb);
series->setProperty("Name","SeriesNo1");

// 选中部分单元格
//QAxObject *range = _curWorkSheet->querySubObject("Range(QVariant,QVariant)",coordInt2String(1,2),coordInt2String(1,9));
//QAxObject *range = _curWorkSheet->querySubObject("Range(QVariant)","$B$1:$Q$1");
//range->dynamicCall("Select(void)");
//QAxObject * xvalues = worksheet->querySubObject("Range(A2:A9)");
//QAxObject * yvalues = worksheet->querySubObject("Range(B2:B9)");
//serie->setProperty("XValues", xvalues->asVariant());
//serie->setProperty("Values", yvalues->asVariant());

// 给该系列添加源数据
// 这里我的数据来自其他部分，非Excel文件，
// 想使用Excel文件数据可采用上面的方法，先选中数据单元格，然后传递过去
QList<QVariant> listXValues, listValues;
for (int i=1; i<_colFenwei.size(); i++)
{
listXValues.push_back(i+1);
listValues.push_back(_colFenwei.at(i));
}
series->setProperty("XValues",listXValues);
series->setProperty("Values",listValues);
series->dynamicCall("Select(void)");

// 添加趋势线
QAxObject *trendLines = series->querySubObject("Trendlines()");
if (trendLines) {
trendLines->dynamicCall("Add()");
int nbTrendLines = trendLines->property("Count").toInt();
QAxObject *trendLine = series->querySubObject("Trendlines(int)",nbTrendLines);
// 设定图标格式为 “散点图”，数字-4133来自 枚举变量 XlTrendlineType  : xlLogarithmic
trendLine->setProperty("Type",-4133);       // XlTrendlineType  : xlLogarithmic
trendLine->setProperty("Name","TrendLineName");
trendLine->setProperty("DisplayEquation",true);
//trendLine->setProperty("DisplayRSquared",true);

QAxObject *dataLabel = trendLine->querySubObject("DataLabel");
QString strFormula = dataLabel->property("Formula").toString();
qDebug() << strFormula;         // "y = -9.113ln(x) + 78.016"

getFormulaCoeffcient(strFormula,_cofA, _cofB);
qDebug() << _cofA;
qDebug() << _cofB;
}
// 保存文件
/*
QString qstrFileName = QCoreApplication::applicationDirPath().append("/FCQ_");
qstrFileName.append(QDateTime::currentDateTime().toString("yyyyMMddHHmmss"));
qstrFileName.replace("/", "\\");
//qDebug() << qstrFileName;
//保存文件并退出
//_curWorkbook->dynamicCall("SaveCopyAs(QString)",qstrFileName);
_curWorkbook->dynamicCall("SaveAs(QString)",qstrFileName);
*/
}

 代码请戳这里 ： http://download.csdn.net/detail/seumonkey/6811425