转自：http://blog.csdn.net/li494816491/article/details/50274305

1. QAxObject *_excelObject1 =newQAxObject("Excel.Application");

2. QAxObject *workbooks = _excelObject1->querySubObject("WorkBooks");

3. QAxObject *workbook = workbooks->querySubObject("Open(constQString&)",QDir::toNativeSeparators(QDir::currentPath() +"./1.xls"));

4. QAxObject *sheet=workbook->querySubObject("Sheets(int)",1);

5. QAxObject* cell = sheet->querySubObject("Cells(int,int)", 1, 4);

6. cell->dynamicCall("SetValue(const QString&)", "str");

7. book->dynamicCall("SaveAs(QString)",fileName.replace("/","\\"));

8. book->dynamicCall("Close(Boolean)", false);

9. _excelObject1->dynamicCall("Quit(void)");

10. delete cell;delete sheet; delete workbook;delete workbooks; delete _excelObject1;

但是这么搞效率太低了，写10000行30列数据就需要11分钟。

后来发现主要的时间都是在和excel的控件交互方面。于是在减少和excel空间的交互方面找解决办法。

查了VBA的手册，发现有range这个方法于是可以使用，另外在Qt中找到

SAFEARRAY(VARIANT)

QList<QVariant>

const QList<QVariant>&

QList<QVariant>&

可以使用QList<QVaiant>代替VBA中的数组。于是上面的cell可以用range代替一行一行的写

1. QAxObject *range = worksheet->querySubObject("Range(QString)", "A1:AF1");

2. range->setProperty("Value", aline);//aline 是一个QList<QVaiant>变量

    效果很明显，一行行的写之后，只需要20s就能完成10000行30列的数据写入了。

    既然可以一行一行的写，那么也可以使用vba的二维数组写。下面的写法效率更高，速度更快。

1.QList<QVariant> a1，a2, a3；

2. QVariant b1(a1), b2(a2), b3(a3);

3. QList<QVariant> c;

4. QVariant d(c);

5.  QAxObject *range = sheet->querySubObject("Range(QString)", "A1:C3");

6. range->setProperty("Value", d);