Qt 操作Excel

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