Qt 5.5 操作 Excel 的速度效率问题

清疚 2022-06-08 03:40 272阅读 0赞

转自：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中找到

<table style="border:1px solid silver; border-collapse:collapse; word-break:break-word; color:rgb(35,35,35); font-family:Verdana,Arial,helvetica,sans-seriff; font-size:14px"> 
 <tbody> 
  <tr> 
   <td style="border:1px solid silver; border-collapse:collapse; padding:3px">SAFEARRAY(VARIANT)</td> 
   <td style="border:1px solid silver; border-collapse:collapse; padding:3px"><a href="http://blog.csdn.net/li494816491/article/details/50274305" style="color:rgb(86,182,233)" rel="nofollow">QList</a>&lt;<a href="http://blog.csdn.net/li494816491/article/details/50274305" style="color:rgb(86,182,233)" rel="nofollow">QVariant</a>&gt;</td> 
   <td style="border:1px solid silver; border-collapse:collapse; padding:3px">const&nbsp;<a href="http://blog.csdn.net/li494816491/article/details/50274305" style="color:rgb(86,182,233)" rel="nofollow">QList</a>&lt;<a href="http://blog.csdn.net/li494816491/article/details/50274305" style="color:rgb(86,182,233)" rel="nofollow">QVariant</a>&gt;&amp;</td> 
   <td style="border:1px solid silver; border-collapse:collapse; padding:3px"><a href="http://blog.csdn.net/li494816491/article/details/50274305" style="color:rgb(86,182,233)" rel="nofollow">QList</a>&lt;<a href="http://blog.csdn.net/li494816491/article/details/50274305" style="color:rgb(86,182,233)" rel="nofollow">QVariant</a>&gt;&amp;</td> 
  </tr> 
 </tbody> 
</table>

可以使用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);**