Qt 源码之 Qt 操作 Excel
创始人
2024-08-01 13:50:24
0

Qt 源码之 Qt 操作 Excel是本文丫介绍的内容,先来看内容: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 );

示例代码:

  1. view plaincopy to clipboardprint?  
  2. #include      
  3. #include      
  4. #include      
  5. #include      
  6. int main(int argc, char **argv)     
  7. {     
  8.     QApplication a(argc, argv);     
  9.     QAxSelect select;     
  10.     select.show();     
  11.     QAxWidget excel("Excel.Application");     
  12.     excel.setProperty("Visible", true);     
  13.     QAxObject * workbooks = excel.querySubObject("WorkBooks");     
  14.     workbooks->dynamicCall("Open (const QString&)", QString("c:/test.xls"));     
  15.     QAxObject * workbook = excel.querySubObject("ActiveWorkBook");     
  16.     QAxObject * worksheets = workbook->querySubObject("WorkSheets");     
  17.     int intCount = worksheets->property("Count").toInt();     
  18.     for (int i = 1; i <= intCount; i++)     
  19.     {     
  20.         int intVal;     
  21.         QAxObject * worksheet = workbook->querySubObject("Worksheets(int)", i);     
  22.         qDebug() << i << worksheet->property("Name").toString();     
  23.         QAxObject * range = worksheet->querySubObject("Cells(1,1)");     
  24.         intVal = range->property("Value").toInt();     
  25.         range->setProperty("Value", QVariant(intVal+1));     
  26.         QAxObject * range2 = worksheet->querySubObject("Range(C1)");     
  27.         intVal = range2->property("Value").toInt();     
  28.         range2->setProperty("Value", QVariant(intVal+1));     
  29.     }     
  30.     QAxObject * worksheet = workbook->querySubObject("Worksheets(int)", 1);     
  31.     QAxObject * usedrange = worksheet->querySubObject("UsedRange");     
  32.     QAxObject * rows = usedrange->querySubObject("Rows");     
  33.     QAxObject * columns = usedrange->querySubObject("Columns");     
  34.     int intRowStart = usedrange->property("Row").toInt();     
  35.     int intColStart = usedrange->property("Column").toInt();     
  36.     int intCols = columns->property("Count").toInt();     
  37.     int intRows = rows->property("Count").toInt();     
  38.     for (int i = intRowStart; i < intRowStart + intRows; i++)     
  39.     {     
  40.         for (int j = intColStart; j <= intColStart + intCols; j++)     
  41.         {     
  42.             QAxObject * range = worksheet->querySubObject("Cells(int,int)", i, j );     
  43.             qDebug() << i << j << range->property("Value");     
  44.         }     
  45.     }     
  46.     excel.setProperty("DisplayAlerts", 0);     
  47.     workbook->dynamicCall("SaveAs (const QString&)", QString("c:/xlsbyqt.xls"));     
  48.     excel.setProperty("DisplayAlerts", 1);     
  49.     workbook->dynamicCall("Close (Boolean)", false);     
  50.     excel.dynamicCall("Quit (void)");     
  51.     return a.exec();     
  52. }   

小结:Qt 源码之 Qt 操作 Excel的内容介绍完了,希望本文对你有所帮助,原文来自: http://blog.csdn.net/tingsking18/archive/2010/06/18/5677353.aspx

相关内容

热门资讯

如何允许远程连接到MySQL数... [[277004]]【51CTO.com快译】默认情况下,MySQL服务器仅侦听来自localhos...
如何利用交换机和端口设置来管理... 在网络管理中,总是有些人让管理员头疼。下面我们就将介绍一下一个网管员利用交换机以及端口设置等来进行D...
施耐德电气数据中心整体解决方案... 近日,全球能效管理专家施耐德电气正式启动大型体验活动“能效中国行——2012卡车巡展”,作为该活动的...
Windows恶意软件20年“... 在Windows的早期年代,病毒游走于系统之间,偶尔删除文件(但被删除的文件几乎都是可恢复的),并弹...
20个非常棒的扁平设计免费资源 Apple设备的平面图标PSD免费平板UI 平板UI套件24平图标Freen平板UI套件PSD径向平...
德国电信门户网站可实时显示全球... 德国电信周三推出一个门户网站,直观地实时提供其安装在全球各地的传感器网络检测到的网络攻击状况。该网站...
着眼MAC地址,解救无法享受D... 在安装了DHCP服务器的局域网环境中,每一台工作站在上网之前,都要先从DHCP服务器那里享受到地址动...
为啥国人偏爱 Mybatis,... 关于 SQL 和 ORM 的争论,永远都不会终止,我也一直在思考这个问题。昨天又跟群里的小伙伴进行...