QT操作Excel（通过QAxObject使用了OLE，前提是本地安装了Excel）

转载

mb5fe55acf14b1a 2016-03-18 00:13:00

文章标签 sed #include i++ .net html 文章分类 代码人生

新建QT GUI项目,在选择选项中勾选ActiveQT Container.

#include <qaxobject.h>

QAxObject *obj = new QAxObject("Excel.Application");

obj->setProperty("Visible", true);

obj->setProperty("Caption", "Hello world");

QAxObject *workBooks = obj->querySubObject("Workbooks");

//打开已存的excel文件

//QAxObject *workBook = workBooks->querySubObject("Open(QString)", "D:\\QTDemo\\OpExcel\\Debug\\1.xls");

workBooks->dynamicCall("Add");

QAxObject *workBook = workBooks->querySubObject("Item(const int)", 1);

QAxObject *sheets = workBook->querySubObject("Sheets");

QAxObject *sheet = sheets->querySubObject("Item(int)", 1);

QAxObject *range = sheet->querySubObject("Range(const QVariant&)", QVariant(QString("A1:A1")));

range->dynamicCall("Clear()");

range->dynamicCall("SetValue(const QVariant&)", QVariant(5));

obj->dynamicCall("SetScreenUpdating(bool)", true);

在Excel中插入图表

QAxObject *excel = new QAxObject("Excel.Application", 0);

excel->setProperty("SheetsInNewWorkbook", 1);

excel->setProperty("Visible", true);

QAxObject *workbooks = excel->querySubObject("Workbooks");

QAxObject *workbook = workbooks->querySubObject("Add");

QAxObject *worksheet = workbook->querySubObject("Worksheets (int)", 1);

worksheet->setProperty("Name","Dati applicazione");

QAxObject *cell = worksheet->querySubObject("Cells(int,int)", 1, 1);

cell->dynamicCall("SetValue(String)", "Serie");

cell = worksheet->querySubObject("Cells(int,int)", 1, 2);

cell->dynamicCall("SetValue(String)", "Dati");

for (int i = 2; i < 10; i++){

cell = worksheet->querySubObject("Cells(int,int)", i, 1);

cell->dynamicCall("SetValue(int)", i - 1);

cell = worksheet->querySubObject("Cells(int,int)", i, 2);

cell->dynamicCall("SetValue(double)", qrand());

}

QAxObject *charts = workbook->querySubObject("Charts");

QAxObject *chart = charts->querySubObject("Add");

chart->setProperty("Name", "Report Grafico dei dati");

chart->setProperty("ChartType", 73);

QAxObject * serie = chart->querySubObject("SeriesCollection(int)", 1);

QAxObject * xvalues = worksheet->querySubObject("Range(A2:A9)");

QAxObject * yvalues = worksheet->querySubObject("Range(B2:B9)");

serie->setProperty("XValues", xvalues->asVariant());

serie->setProperty("Values", yvalues->asVariant());

---------------------------------------------------------------------------------------------------------------------

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

示例代码：

QT操作Excel（通过QAxObject使用了OLE，前提是本地安装了Excel）_i++

#include <QtGui>
#include <QAxObject>
#include <QAxWidget>
#include <qaxselect.h>　　//备注:在我(GUOBBS,不是原作者)的测试中,已删掉此行
int main(int argc, char **argv)
{
    QApplication a(argc, argv);
    QAxSelect select;
    select.show();
    QAxWidget excel("Excel.Application");
    excel.setProperty("Visible", true);
    QAxObject * workbooks = excel.querySubObject("WorkBooks");
    workbooks->dynamicCall("Open (const QString&)", QString("c:/test.xls"));
    QAxObject * workbook = excel.querySubObject("ActiveWorkBook");
    QAxObject * worksheets = workbook->querySubObject("WorkSheets");
    int intCount = worksheets->property("Count").toInt();
    for (int i = 1; i <= intCount; i++)
    {
        int intVal;
        QAxObject * worksheet = workbook->querySubObject("Worksheets(int)", i);
        qDebug() << i << worksheet->property("Name").toString();
        QAxObject * range = worksheet->querySubObject("Cells(1,1)");
        intVal = range->property("Value").toInt();
        range->setProperty("Value", QVariant(intVal+1));
        QAxObject * range2 = worksheet->querySubObject("Range(C1)");
        intVal = range2->property("Value").toInt();
        range2->setProperty("Value", QVariant(intVal+1));
    }
    QAxObject * worksheet = workbook->querySubObject("Worksheets(int)", 1);
    QAxObject * usedrange = worksheet->querySubObject("UsedRange");
    QAxObject * rows = usedrange->querySubObject("Rows");
    QAxObject * columns = usedrange->querySubObject("Columns");
    int intRowStart = usedrange->property("Row").toInt();
    int intColStart = usedrange->property("Column").toInt();
    int intCols = columns->property("Count").toInt();
    int intRows = rows->property("Count").toInt();
    for (int i = intRowStart; i < intRowStart + intRows; i++)
    {
        for (int j = intColStart; j <= intColStart + intCols; j++)
        {
            QAxObject * range = worksheet->querySubObject("Cells(int,int)", i, j );
            qDebug() << i << j << range->property("Value");
        }
    }
    excel.setProperty("DisplayAlerts", 0);
    workbook->dynamicCall("SaveAs (const QString&)", QString("c:/xlsbyqt.xls"));
    excel.setProperty("DisplayAlerts", 1);
    workbook->dynamicCall("Close (Boolean)", false);
    excel.dynamicCall("Quit (void)");
    return a.exec();
}